. . . an innovative new series of 
specialist magazines for today’s homemakers . . . 


LIFESTYLE, THE SERIES THAT GIVES YOU MORE — 
MORE IDEAS, MORE INSPIRATION, MORE INFORMATION 


Welcome to our Christmas Program Present! 


NOW YOU'VE GOT AN EXCUSE not to lie 
on the beach all summer, showing that 
flab you’ve acquired through overindul- 
gence in festive fare. With the programs in 
this special Christmas bonus,3 you'll have 
lots of reasons to stay inside, getting a 
suntan in the glare of your monitor screen. 


Just for Fun 

Next we have a number of programs just for 
fun. In this section you can dive into the 
sea with KAMIKAZI PARACHUTE!, clock 
up a strike or three with TEN-PIN BOWL- 
ING, try out your skill against the fiendish 
computer brain in DOMINOES, take up 
arms as a Yankee against the British in 
DANIEL MORGAN’S MILITIA, and win 
some synthetic money on our SUPER 
ZAPPO SLOT MACHINE (which is mo- 
delled on the behaviour of real slot ma- 
chines, rather than just being some vague 
computer approximation). 


Brain-Twisters and Simulations 
When you've had enough of that sinful, 
just for pleasure stuff, you can exercise 
some grey matter with the board games 
GOMOKU, CONNECT FOUR, DRAUGHTS 
and OZ-THELLO. From there we move 
into Simulationland, in which you gain 
control of THE YOUR COMPUTER ROBOT, 
which leaves interesting patterns behind 
it as it strolls around your screen (some- 
what like a slimy snail, | guess) and LIVIN’ 
IN THE LODGE, in which you see how well 
you would do as Prime Minister of our 
sunburnt country. 


Know Thyself 

Then things get really serious, with our 
DOCTOR program (a very hefty version of 
ELIZA which I wrote to try and perform as 
closely as possible to the original, vast, 
mainframe one), THE CELTIC TAROT to 
see what 1987 holds for you, and our offi- 
cial BIORHYTHM CALCULATOR, which 
will back up the Tarot predictions with a 
little bit of weird science. 


Artificial Stupidity 
Just to show we haven't lost our marbles 
completely, you can give yourself a quickie 


medical checkup, with our very own drive- 
in, 24-hour clinic, MEDICI, and go a round 
or seven with our ‘intelligent’ NOUGHTS 
AND CROSSES game, which learns to im- 
prove its game as it plays against you. 


Utilitarianism 

If you want to know when Australia Day 
will fall in 1993 (and who doesn’t?), THE 
YC PERPETUAL CALENDAR will tell you, 
and print out a calendar for 1987, 1993 or 
just about any old year you want. Let’s see 
now, Easter in 1947 fell on the 22nd, so 
Aunt Mary must have gotten married 
on... 


A Barrel of Fun 

ALL IN ALL, there’s a lot in this special 
bonus magazine, to ensure you make the 
most of your computer this summer. I've 
written the programs so that they will run, 
with minimum modification, on just about 
any computer on the market. You might 
need to modify the lines which contain 
RANDOMIZE in some way (or leave them 
out all together, if you like, as it won't 
make much difference), and you might 
want to play with the PRINT statements in 
some programs to make the most of your 
system’s graphics capabilities. 

And if the thought of all that typing is 
too much to bear, all the programs are 
available via the Your Computer Bulletin 
Board on (02) 953 8074. Alternatively, if 
you have an IBM PC, or a clone, I can pro- 
vide you with a disk containing all the ma- 
terial in this magazine. Just send me a 
used fiver (or, if you must, your Visa or 
Bankcard details) to Interface Publica- 
tions, 34 Camp Street, Chelsea 3196, Vic., 
and I'll send you a disk of the material. 


Note that these programs are NOT public do- 
main, so they cannot be sold or distributed by 
anyone, other than downloading them from the 
bulletin board for your own use, or from my com- 
pany on disk. 


OK, time to get down and get with it 

(as we tired old hackers are wont to say). 
Hope you enjoy our Program Present! 

Tim Hartnell 


BULLETIN BOARD 
NEWSFLASH 


Believe it or not, for business or for pleasure, more spectacular than ever, the Your Computer Bulletin 
Board is back with Bells on. 


Find that hard (disk) to imagine? Well, how else would we be able to share our 50-plus megabytes of 
neatly catalogued public domain software. Even with our new whizz-bang ever-whirring fixed drive 


(yes, you heard right) we'll have to rotate all that soft stuff in 10 megabyte batches ... Then we'll still have 
room to slap up: 


TS The regularly updated, cross-referenced, five-year index to Your Computer articles. 
US" Our database of the new products listed in the magazine each month. 
[5° Sample programs from dLetter. 


U3" Many of those useful bits of code we publish in the magazine - yours for the downloading. 


And there'll be space for you to send us words of greeting, praise and bribery allsorts. Old-time users of 
the YC BBS, who've been on hold for the past few months, will also enjoy the 


REVISED MESSAGING SYSTEM 
NEW PHONE NUMBER -_ (02) 953 8074 


NEW DOCUMENTATION 


(Send us your name, address and member number, and we'll send you a copy.) 


For showing extreme patience in the line of membership, existing users have been awarded at least six 
month's free access (depending on when you joined up), from this date. 


Visitors are welcome, but are asked to observe dress regulations at all times. 


Yes, | want some! Here's my $30, by : C] Cheque/Money Order , or 


Bankcard L|visa 
L_] Mastercard LJ American Express 
Credit Card No.: ss Expiry: / Signature: 
(Unsigned credit card orders not accepted) 
Mail your application, FREE, today: Freepost No 4, 
The Federal Publishing Company Pty Ltd, 
PO Box 227, 


Waterloo NSW 2017. 
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JUST FOR FUN 


ch SAME aan IB LR NM A i NOR NT AA TR ERD IT, 


Kamikaze Parachute! 


10 REM Kamikazi Parachute! 

20 REM (C) Neal Cavaiier=-Sinith, 
Interface Publications, 1986 

30 P=20 

40 GOSUB 120:REM INTIALISE 

50 REM ## eR HREE HS 

60 REM MAIN CYCLE 

70 GOSUB 370:REM FRINT ‘CHUTE 

80 GOSUB 530:REM LANDING STRIP 

90 GOSUB 590:REM GET KEYS 

106: -GOTO* 70 

110 REM ®RRHRHRH ERE R HE 

120 REM INITIALISATIUN 

130 Cis 

THO IF INKEY$<>" THEN 140 

150 PRINT: PRINT “SELECT YOUR GAME: " 

160: PRINT TABCOGE [A = baAoy" 

170. PRINT TABC6):"E = MODERATE" 

LOO PREND TABOO. s DEP ECuUir™ 

190 PRINT TAB(6);"D ~ INCREDIBLY HARD" 

200 INPUT " Me RS 


210 IF RS<"A™ OR REO" THEN 200 
| 
| 


IN THIS DRAMATIC GAME, you have to 
battle the fierce winds off the coast of Vic- 
toria, while attempting to land your para- 
chute safely on a tiny landing pad floating 
on the waves of Port Philip Bay. 

There are four levels of difficulty (from 
‘easy’ to ‘incredibly hard’). You use the ‘Z’ 
key to move the parachute to the left, and 
the 'M’ to move it to the right. Make sure 
you engage Caps lock before you run this 
program. Miss the landing pad, and you'll 
drown. 


220 DF=1/2 

230 IF R$="C" THEN BE=1 

O4O IF R$="B" THEN DF=2 

250 IF R$="A" THEN DF=3 

260 STP=O:REM SCREEN TOP 

270 RANDOMIZE VAL(RIGHTS#E LIMES, 2) ) 
280 STP=0:REM SCREEN TOP 

290 SBOT=19:RiEM SCREEN BOTTOM 
300 SWDE=40:REM WIiLTH OF SCREER 
310 SWDE=SWDE-3 

320 ACCHINT(RND(1)*(SWDE-~4)} 
330 PAD=INT(RND(1)#(SWDE-~10)) 
340 PLUS=1 

350 RETURN 

360 REM RHARKKRRRRERKRELRER 

270 REM PRINT PARACHUTE 

380. CLS 

390 FOR C=0 Tn STP 

4OO PRINT 
1410 NEXT C 
| 420 PRINT TAB(ACC);" 7 8 


Add P20; PRINT TEBCrCC ens 
0 POY SPRING TBC RCC cet a: 
y E50 PRING “TABCACC) oe you 


SBOTs!: TREN: S30 


460 IF STPE= 
-~6 TO SBOT=STP 


470 FOR C 
480 PRINT 
490 NEXT C 
SOO SI PeSTPr+4 
RETURN 


| eee 
SPLOSSSSSHHHHHHHHH! ! 


YOU GOT SOAKED! 
YOU HAVE 16 POINTS 


530 
540 


REM ## #88888 RHEE 


REM LANDING STRIP 
PAD=PAD+PLUS 


760 
770 
780 


JUST FOR FUN! 


P=INT(P+10/DF) 


GOTO 810 
PRINT TAB(12);"SPLOSSSSSHHHHHHHHH!!" 


IF PAD>SWDE-6 THEN PLUS=-1 
PRINT TAB(PAD);"@@@6" 
RETURN 


550 
560 


570 


790 
800 


PRINT TAB(14);"YOU GOT SOAKED!" 
Per=2 


580 REM #####8## 810 AT=AT+1 
590 REM GET KEYS 820 IF AT=20 OR P<O THEN 900 
600 IF STP=SBOT-4 THEN GOSUB 660 830 PRINT TAB(11);"YOU HAVE"P™"POINTS" 


610 Y$=INKEY$:REM or GET Y$ 840 FOR X=1 TO 1000:NEXT X 
620 IF Y$="Z" THEN ACC=ACC-DF 650 IF INKEY$<>"" THEN 850 
630 IF Y$="M" THEN ACC=ACC+DF 860 GOSUB 260 

640 RETURN 870 RETURN 

650 REM HRRRKEEE EH EH HH 880 REM ##¥ #8 RE 

660 REM SEE IF DROWNED 890 REM DROWNED! 


670 
680 
690 
T00 
710 
720 
730 


IF ACC<PAD-1 THEN 780 
IF ACC>PAD+2 THEN 780 
IF ACC=PAD+1 OR ACC=PAD THEN 740 
PRINT TAB(8);"YOU MADE IT...BY THE" 
PRINT TAB(9);"SKIN OF YOUR TEETH" 
P=P+5 

GOTO 810 

PRINT TAB(12);"CONGRATULATIONS!!" 
PRINT TAB(13);"A SAFE LANDING!" 


Ten-Pin Bowling 


REM TEN-PIN BOWLING 

REM (C) INTERFACE PUBLICATIONS, 
GOSUB 760:REM INITIALISE 

FOR (Fs (1.07 “0 

FOR B=. -TO: 2 

IF B=1 THEN GCSUB 290:REM SET UP PINS 


900 PRINT TAE(13);"YOU'VE BEEN DROWNED!" 


910 PRINT: PRINT TAB(12);"YOU SCORED"P"PO 
Ths 

920 PRINT TAB(16);"IN"AT"ATTEMPTS,." 

930 END 


THIS PROGRAM ALLOWS YOU to play 
ten-pin bowling (after a fashion) by test- 
ing your reflexes. 

When you run the program, you'll see 
the pins shown from above (cunningly 
represented by hi-res letter O's). After an 
agonizing wait, the words BOWL NOW will 
appear. The more quickly you react to this 
message, by hitting any key on your long- 
suffering computer, the better your bowl 
will be. 


1986 


GOSUB 350:REM PRINT PINS 
GOSUB 480:REM BOWL BALL 
GOSUB 350 
COUNT=0 
FCR 2:1 TO 710 
IF A(J)=45 THEN COUNT=COUNT+1 
NEXT J 
IF COUNT=0 TEEN PRINT 
If STRIKESF TREN -PRINT 
<"3GOTC: 170 
1660°.2 COUNTHS10. THEN PRINT «2% 
DOWN ::" 
170 IF COUNT>O AND COUNT<1C TEEN PRINT , 
"-> SPARE <-" 
180 IF COUNT=1 
IN DOWN" 
190 IF STRIKE<>F AND COUNT<>1 


The program keeps score automatically, 
and tells you how well you’re doing. If you- 
're feeling reflexive, and want to chuck a 
ball or two about, this program is for you. 


,"> GUTTER <" 
,">> STRIKE < 


ALL PINS 
THEN PRINT TAB(15);"ONE P 


AND COUNT< 


JUST FOR FUN! 


10 THEN PRINT TAB(14);COUNT"PINS DOWN" 
200 GOSUB 850 

210 NEXT B 

220 SCRE=SCRE+COUNT 

230 IF STRIKE=F-1 THEN PRINT ,"PLUS"COUN 
T"™!!™: SCRE=SCRE+COUNT: STRIKE=99:GOSUB 85 
0 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
CRE 
380 PRINT: FRINT "THIS IS FRAME"F; 

390 IF STRIKE=99 THEN PRINT ™ BALL"B ELS 
E PRINT 

4OO PRINT: PRINT 

410 PRINT TAB(8);CHR$(A(10));" ";CHRS$(A( 
9))3" "SCHR$(A(8))5" "ZS CHR$( A(T) ) 

420 PRINT TAB(9);CHR$(A(6))3;" "sCHR$(A(5 
));" "ZS CHR$CAC4) ) 

430 PRINT TAB(10);CHR$(A(3));" 
2)) 
40 
450 
460 
470 
480 
490 


NEXT F 

PRINT "THAT'S THE END OF TEE SET" 
PRINT: PRINT “YOUR SCORE WAS"SCRE 
END 

REM ERRREEERESE 

REM SET UP FINS 

FOR J=1 TO 10 

A(J)=79 

NEXT J 

RETURN 

REM EHRHRERREER 

REM PRINT PINS 

CLS: PRINT: PRINT 

PRINT "YCUR SCORE TO THIS FRAME IS"S 


";CHR$(A( 


PRINT TAB(11);CHR$(A(1)) 

PRINT: PRINT 

RETURN 

REM &##eeeaee 

REM BOWL BALL 

PRINT TAB(4);"STAND BY TO BOWL": PRIN 


IF INKEY$<>"" THEN 500 

FOR R=1 TO 300+RND(1)#Z 

NEXT R 

IF INKEY$<>"" THEN 510 

PRINT TAB(7);"BOWL NOW" 

N=0 

N=N+.7 

IF INKEY$="" THEN 560 

IF B=1 AND RND(1)>.9 AND N<X30 THEN N 


IF 
IF 
IF 


N<20 AND Bz=1 THEN 680 
N<20 THEN T=10 
N>19 AND N<30 THEN T=5+INT(RND(1) 


620 
#5) 
6 30 
640 
650 
660 
670 
6 80 
690 
700 
710 
720 
730 
THO 
750 
760 
T7TO 
780 
790 
800 
810 


YOUR SCORE TO THIS FRAME IS 0 


THIS IS FRAME 1 BALL 1 


00 0 0 


STAND BY TO BOWL 
BOWL NOW 


YOUR SCORE TO TKIS FRAME IS 16 


THIS IS FRAME 3 BALL 1 


00 0 0 
0 0 0 


-> SPARE <- 
3 PINS DOWN 


IF N>29 AND N<42 THEN T=24+INT(RND(1) 


IF N>4¥1 THEN T=INT(RND(1) #4) 
FOR K=1 TO T 
IF RND(1)>.1 
NEXT K 
RETURN 

REM *® STRIKE # 

FOR K=1 TO 10 

AC(K)=45 

NEXT K 

STRIKE=F 

Bz=2 

RETURN 

REM SRRREKRKKKREKE 

REM INITIALISATION 

CLS 

RANDOMIZE VAL(RIGHT$(TIME$, 2) ) 

DIM K¥40) 

SCRE=0:REM SCORE 

Z=500:REM ADJUST THIS VALUE TO GIVE 


THEN A(K)=45 


BEST RESULTS ON YOUR SYSTEM 


820 
830 
840 
850 
860 
870 


STRIKE=99 

RETURN 

REM #8 ### 

REM DELAY 

FOR L=1 TO 1300:NEXT L 
RETURN 


Dominoes 


FROM THE EMPTY CAVERN which repre- 
sents the Tim Hartnell Inner Brain of Use- 
less Knowledge, comes this fascinating 
fact: The present-day game of dominoes, 
which was probably developed in Italy 
around 200 years ago, is based on a Chi- 
nese tile game, invented centuries before 
the Italians got hold of them. And this 
program was invented about 20 minutes 
ago, as a Silicon version of the Italian 
game. | 

To play dominoes, we use 28 oblong 
‘stones’ or ‘tiles’. Each tile is divided into 
two sections, and ‘pips’ (like the dots on 
dice) are placed on each section. The pips 
range from none (blank) to six. The domi- 
noes are placed faced downward on a 
table, and each player selects seven tiles 
for his or her own use. The others are left 
on the table as the reserve, or ‘bone yard’ 
as it is quaintly known. 

The computer has the first move (it’s 
easy to change this so you can move first, 
if you like) and you then take it in turns to 
place your dominoes down, making sure 
that you put matching pips together (so 
that if the computer's first dominoe was 
67, you could put down any dominoe 
which had a6 ora7 on it). Blanks count as 
any number. If you can’t move, you enter a 
zero, and you'll be given an extra domi- 
noe, from the ‘bone yard’. The game ends 
when one of the players manages to get 
rid of all of his or her pieces, or when nei- 
ther player can move. 

You'll find the computer puts up a solid 
‘defence in this game. 


JUST FOR FUN! 


10 REM DOMINOES 

20 REM (C) TIM HARTNELL, 1986 

30 REM INTERFACE PUBLICATIONS 

4O GOSUB 1620:REM INITIALISE 

50 REM ####88 8888 

60 REM MAIN CYCLE 

70 NTFLAG=0 

80 TFLAG=0 

90 GOSUB 1340:IF CLEFT=14 THEN 220 

100 GOSUB 560:REM COMPUTER MOVES 

110 IF NTFLAG=1 THEN 140 

120 IF TFLAG=0 THEN 150 

130 PRINT: PRINT "I'LL TAKE A TILE FROM T 

HE BONEYARD":GOSUB 1590 

140 MF=9 

150 GOSUB 1490:REM PRINTOUT 

160 GOSUB 1420:I1F HLEFT=14 THEN 220 

170 GOSUR 970:REM HUMAN MOVES 

180 GOSUB 1490:REM PRINTOUT 

190 IF NTFLAG=2 THEN 220:REM GAME OVER 

200 GOTO 70 

210 REM S##HREREERE 

220 REM END OF GAME 

230 PRINT TAB(8);"END OF GAME": PRINT:GOS 

UB 1590 

240 MF=9 

250 GOSUB 1490 

260 CS=0:HS=0 

270 PRINT "MY TILES:" 

280 FOR J=1 TO 14:PRINT C$(J)3;"%:"3:NEXT 
J 

290 PRINT: PRINT: PRINT "YOUR TILES:" 

300 FOR J=1 TO 14: PRINT H$(J);"%:"; :NEXT 
J: PRINT: PRINT 

310 FOR J=1 TO 14 

320 IF C$(J)<>"" THEN CS=CS+VAL(RIGHT$(C 

$(J),1))+VAL(LEFT$(C$(J),1)) 

330 IF H$(J)<>"" THEN HS=HS+VAL(RIGHT$(H 
$(J),1))+VAL(LEFT$(H$(J),1)) 

340 H$(J)="™":C$(g)ann 

350 NEXT J 

360 PRINT:PRINT "AT THE END OF THAT GAME 
, YOUR SCORE" 

370 PRINT TAB(6);"IS"HS"AND MINE IS"CS 
380 PRINT: PRINT TAB(8); 

390 IF CS=HS THEN PRINT "IT'S A DRAW" 
400 IF CS<HS THEN PRINT "SO I'M THE WINN 
ER": CGAME=CGAME+1 

410 IF HS<CS THEN PRINT "SO YOU'RE THE W 
INNER": HGAME=HGAME+1 

420 PRINT: PRINT 

430 PRINT CGAME"GAMES TO ME,"HGAME"GAMES 
TO you" 


JUST FOR FUN! 


PRINT: PRINT 
IF CGAME+HGAME<5 THEN 500 
PRINT "THAT'S FIVE GAMES WE'VE PLAYE 


470 IF CGAME>HGAME THEN PRINT TAB(7);"AN 
D I'M THE OVERALL WINNER" 


480 IF CGAME<HGAME THEN PRINT TAB(5);"AN 

D YOU'RE THE OVERALL WINNER" 

490 GOTO 530 

500 PRINT "ENTER 'Y¥' FOR A NEW GAME, 'N'! 
TO END® 

510 INPUT L$ 

520 IF L$="Y" THEN CLS:GOSUB 1680:GOTO 7 
0 

530 PRINT: PRINT TAB(8);"OK, THANKS FOR T 
HE GAMES" 

540 END 


550 REM HEEHERHE EEE KE 
560 REM COMPUTER MOVES 


570 MF=1 
580 IF P$="" THEN 800:REM FIRST MOVE 
590 PRINT "BEFORE THIS MOVE I HAVE"14-CL 


EPI TILE Se" 

600 GOSUB 1590 

610 X=0:FLAG=0 

620 X=X+1 

630 IF LEFT$(C$(X),1)=LEFT$(P$,1) THEN F 
LAG=1:GOSUB 890:RETURN 

640 IF RIGHT$(C$(X),1)=LEFT$(P$,1) THEN 

FLAG=2:GOSUB 890:RETURN 

650 IF LEFT$(C$(X),1)=RIGHT$(P$,1) THEN 

FLAG=3:GOSUB 890:RETURN 

660 IF RIGHT$(C$(X),1)=RIGHT$(P$,1) THEN 
FLAG=4:GOSUB 890:RETURN 


670 IF X<14 THEN 620 

680 PRINT "I CANNOT MOVE...":GOSUB 1590 
690 X=X+1 

700 IF D$(X)="" THEN 750 

Ti: Yeo 

720 Y=Y+i 

730 IF C$(Y)="" THEN C$(Y)=D$(X):D$(X)=" 


";TFLAG=1: RETURN 
740 IF Y<14 THEN 720 
750 IF X<28 THEN 690 


760 PRINT "THERE ARE NO TILES LEFT IN BO 
NEYARD" 

770 GOSUB 1590 

780 NTFLAG=NTFLAG+1 

790 RETURN 

800 REM * FIRST MOVE #* 

810 X=0 

820 X=X+1 


10 


830 IF LEFT$(C$(X),1)=RIGHT$(C$(X),1) TH 
EN 860:REM DOUBLE FOUND 


840 
850 
860 
870 
880 


IF X<7 THEN 820 

X=INT(RND(1) #7) +1 

P$=C$(X):C$(X)="" 

RETURN 

REM SEES E 

890 REM MAKE MOVE 

900 IF FLAG=1 THEN P$=RIGHT$(C$(X),1)+LE 
FT$(C$(X),1) +": "4+P$ 

910 IF FLAG=2 THEN P$=C$(X)+":"4P$ 

920 IF FLAG=3 THEN P$=P$4+":"+C$(X) 

930 IF FLAG=4 THEN P$=P$4+":"4+RIGHT$(C$(X 
),1)+LEFT$(C$(X),1) 


940 C$(xX)="" 

950 RETURN 

960 REM ##HHHHERE HE 

970 REM HUMAN MOVES 

980 MF=2 

990 PRINT: PRINT "HERE IS YOUR HAND:":PRI 
NT 

1000 FOR G=1 TO 14 

1010 IF H$(G)<>"" THEN PRINT G"— "3;H$(G) 
1020 NEXT G 

1030 PRINT: PRINT "ENTER THE NUMBER OF TH 
E PIECE YOU WANT TO MOVE, O TO PASS" 
1040 INPUT " "5M 

1050 IF M<O OR M>14 THEN 1040 


1060 
1070 
1080 
tt 

1090 
1100 


IF M=0 THEN 1180:REM PASS 
IF H$(M)="" THEN 1040 
PRINT "AT THE START (S) OR END (E)? 


INPUT " ns Ag 

IF A$<>"S" AND A$<>"E" THEN 1090 
1110 IF A¢="E" THEN 1140 

1120 IF RIGHT$(H$(M),1)=LEFT$(P$,1) THEN 
P$=H$(M) +": "+P$:GOTO 1160 

1130 P$=RIGHT$(H$(M),1)+LEFT$(H$(M),1)+" 
>™+P$:GOTO 1160 

1140 IF LEFT$(H$(M),1)=RIGHT$(P$,1) THEN 
P$=P$+":"+H$(M):GOTO 1160 

1150 P$=P$4+":"+RIGHT$(H$(M),1)+LEFT$(H$( 

M),1) 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 


H$(M) =" 

RETURN 

REM HUMAN PASS 

X=0 

X=X+1 

IF H$(X)="" THEN 1230 
IF X<14 THEN 1200 
Y=14 

Y=Y+1 


1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 


AFTER MY MOVE, 


02:26:66:63: 33:31 


IS YOUR HAND: 


2 - 54 
3. =. 14 
5 - 61 
T - 40 


ENTER THE NUMBER OF THE PIECE YOU WANT 


£5 
AT THE START (S) OR END (E)? 
? &E 


IF D$(Y)<>"" THEN 1300 

IF Y<28 THEN 1240 

PRINT "NO TILES LEFT IN BONEYARD" 
NTFLAG=NTFLAG+1 
RETURN 
H$(X)=D$(Y):D$(Y)="" 
PRINT "YOU HAVE DRAWN 
GOSUB 1590 

RETURN 

REM COMPUTER OUT? 

REM #8 8H RRSKRKEE KS 
CLEFT=0 

FOR J=1 TO 14 

IF C$({J)="" THEN CLEFT=CLEFT+1 
NEXT J 

RETURN 

REM #8 HRR EEE EE 

REM HUMAN OUT? 

HLEFT=0 

FOR J=1 TO 14 

IF H$(J)="" THEN HLEFT=HLEFT+1 
NEXT J 

RETURN 

REM #8 HRS 

REM PRINT OUT 

CLS 

IF MF=9 THEN 1550 

CLS 

IF MF=1 


ome HS( xX) hs" 


THEN PRINT "AFTER MY MOVE, 


";:GOTO 1550 


1540 
1550 
1560 
1570 
1580 


PRINT "AFTER YOUR MOVE, "; 
PRINT "THIS IS THE BOARD:" 
PRINT: PRINT 

PRINT P$ 

PRINT 


THIS IS THE BOARD: 


JUST FOR FUN! 


4590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 


(K),1 


1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 


TO MOVE, 0 TO PASS 


FOR Q=1 TO 1000:NEXT Q 
RETURN 


REM RHKKRKKKKKKK A KF 


REM INITIALISATION 

CLS 

RANDOMIZE VAL(RIGHT$(TIME$,2) ) 
DIM D$(28),H$(14),C$( 14) 
PRINT: PRINT "STAND BY, CHAMP!" 
REM ® SET UP DOMINOES #*# 

X=0 

FOR J=0 TO 6 

FOR K=0 TO J 

X=X+1 
D$(X)=RIGHT$(STR$(J),1)+RIGHT$(STR$ 
) 

NEXT K 

NEXT J 

PRINT: PRINT 

REM * SHUFFLE DOMINOES #* 

REM MOSES/OAKFORD ROUTINE (1963) 
FOR J=28 TO 1 STEP -1 

T=INT( RND(1)#J) +1 

H$=D$(T) 

D$(T)=D$(J) 

D$(J)=H$ 

NEXT J 

REM ® ALLOT HANDS #* 

FOR J= 1 TO 7 
H$(J)=D$(J):D$(J)="™" 
C$(J)=D$(J+7) :D$(J+7)="" 

NEXT J 

P$="";REM HOLDS CURRENT BOARD 
HGAME=0:CGAME=0:REM TOTALS WON 
RETURN 


Daniel Morgan's Militia 


JUST FOR FUN! 


WAY BACK iN !78&!, when Australia was 
just a gleam in Governor Philip's eye, the 
Brits were bashing hel! out of the Amer- 
icans in the War of independence. The tide 
turned, however, in the Battle of Cowpens, 
when troops under the control of General 
Daniel Morgan scored a convincing victo- 
ry. 
In this program, you control Morgan's 
troops. There are ten levels of difficulty. 
The British are represented by numbers at 
the bottom of the screen, and they ad- 
vance relentlessiy towards you at the top. 
Your men are represented by a letter V’ 
(classy graphics, huh?) and you move your 
men back and tortr with the ‘Z’ key (to 
move ta the leit) and the ‘M’ key (to move 
to the right) You fire at the British by 
pressing the space bar 

Your score is related to two things: the 
numbers vour shots destroy, and their 
position within the British ranks. There are 
four rows of British soldiers. The front row 
is worth the least. and those in the final 
row are worth the most. 

Go get ‘em, Daniel Morgan! 


IT 1S 2 AM GN JANUARY 17, 1781 


Tiki Sew: SOUT -T EME. “OF “PRES TING, 
GENERAL MORGAN 
ENTER YOUR CHOZCE OF LEVEL <4 70° 10) 


To. 2S. THE. MOST DIP ICULT 
io THE BASLEST 


2 4 


12 


MORALE IS 284 YOU'VE FIRED 10 SHOTS 


Coe een ee ne. 


I I 
ny qT 
iL i 
I I 
I a 
1 I 
i Zz 
I I 
1 7 61 

6 cod 
Ff 2 be 
1 3 1 46 61 


10 REM DANIEL MORGAN'S MILITIA 
20 REM (Coe) Tim Eartnel), 
Interface Publications, 1986 
30 GOSUB 660:REM INITIALISE 
40 GOTCG 290 
SO REM #RRRHR HEHE 
60 REM MAIN CYCLE 
70: CLS 
80 COUNT=COUNT-LEV/10 
| 90 PRINT "MORALE IS"INT(SCR)" YOU'VE FI 
| RED"SHOTS"SHOTS" 
| 100 IF COUNT<1 THEN EDFLAG=2 
1110 IF SHOTS>35-LEV THEN EDFLAG=3 
Bee PRINT TAB(11);H$ 
130 FOR d=1 TO INT(COUNT+.5) 
| 140 PRINT TAB(11);"I I":REM 
| 
| 
| 
| 


| 

| 

| 

| 

| 

| 

| 
4 
| 2 
| : 
| 


10 SPACES 
150 NEXT J 
160 PRINT TABC 71): "I"sag$s" I" 
170 PRINT TAB(11);"I"; BE; "i" 
180 PRINT TAB(C11);"1":CS$;"1" 
190 PRINT TAB(11);"I";D$3"L" 
200 IF EDFLAG=1 THEN PRINT: PRINT TAB(4); 
"YOU'VE BEATEN THE BRITISH!I":GOTO 330 
(210 IF EDFLAG=2 THEN PRINT:PRINT TAB(4); 
OTHE: BRITISH HAVE BRATEN. YOU"sGOTO 330 
i220 ITF EDFLAG=3 THEN PRINT: FRINT TABC3)3 
"YOU'RE OUT OF AMMUNITION! ":GOTO 330 
230 FS=INKEY$ 
24C REM DFLETE NEXT LINE FOR A MUCH MORE 
DIFFICULT GAME: <4 


} 

| 

| 

LeU Te Pao AND Bae pM AND Eo SN Ae OT 
| 
reno. LF Pas! 2" THEN PSTSPeTats1F PSt< 7 TH 
| 


er? -LF OSS “THEN: PG rePoia tele Potion. 7 
HEN PST2=10 


JUST FOR FUN! 


280 IF F$=" " THEN SHOTS=SHOTS+1:GOSUB 4/730 A$=A$+T$ 


20:REM FIRE 7T4HO GOTO 760 

290 M$an*****"""""%N 750 AgS=A$e" 1 

300 H$=LEFT$(M$,PST)+"V"+RIGHT$(M$,11-PS|760 IF RND(1)<.6 THEN 800 

T) 770 GOSUB 980 

310 GOTO 706 780 B$=B$+T$ 

320 REM #RRRERKKRE® 790 GOTO 810 

330 REM END OF GAME 800 B$=B$+" " 

340 PRINT 810 IF RND(1)<.6 THEN 850 

350 EFFECT=SHOTS 820 GOSUB 980 

360 IF EDFLAG=1 THEN FFFECT=.1 830 C$=C$+T$ 

370 IF EDFLAG=3 THEN EFFECT=97 840 GOTO 860 

380 PRINT TAB(4);"YOUR TROOPS! RATING IS/| 850 C$=C$+" "% 
"INT((1974*®SCR)/(EFFECT*®LEV+.0005)) 860 IF RND(1)<.6 THEN 900 

390 IF INKEY$<>"" THEN 390 870 GOSUB 980 

400 END 880 D$=D$+T$ 

H10 REM #ERERRERRER EERE 890 GOTO 910 

420 REM FIRE SUBROUTINE 900 D$=D$+" " 

430 IF MID$(A$,PST,1)=" " THEN 470 910 NEXT Z 

HHO SCR=SCR+VAL(MID$(A$,PST,1))*®LEV 920 COUNT=15 

450 MID$(A$,PST,1)=" " 930 PST=INT(RND(1)*9) +1 

460 RETURN 940 SCR=0 

470 IF MID$(B$,PST,1)=" " THEN 510 950 EDFLAG=0 

480 SCR=SCR+2*VAL(MID$(B$,PST,1))*LEV/3 | 960 SHOTS=0 

490 MID$(B$,PST,1)=" " 970 RETURN 

500 RETURN 980 T$=STFE$(INT(RND(1)*9)+1) 

510 IF MID$(C$,PST,1)=" " THEN 550 990 T$=RIGHT$(T$,1) 

520 SCR=SCR+4*VAL(MID$(C$,PST,1))*®LEV/2.110C0 RETURN 

5 1010 REM REERERREF 

530 MID$(C$,PST,1)=" " 1020 REM GET LEVEL 

540 RETURN 1030 PRINT: PRINT: PRINT 

550 IF MID$(D$,PST,1)=" " THEN 590 1040 PRINT TAB(3);"IT IS 2 AM ON JANUARY 
560 SCR=SCR+8*VAL(MID$(D$,PST,1))*®LEV/1. 17, 1781" 

3 1050 PRINT:PRINT 

570 MID$(D$,PST,1)=" " 1060 PRINT TAB(3);"THIS IS YOUR TIME OF 
580 RETURN TESTING, GENERAL MORGAN" 
590 IF Ag<>" " THEN RETURN: REM | 1070 PRINT:PRINT 

10 SPACES 1080 PRINT “ENTER YOUR CHOICE OF LEVEL ( 
600 IF B¢$<>" " THEN RETURN:REM | 1 TO 10)" 

10 SPACES 1090 PRINT:PRINT TAB(8);"10 IS THE MOST 
610 IF C$<>" " THEN RETURN:REM | DIFFICULT" 

10 SPACES 1100 PRINT TAB(12);"1 IS THE EASIEST" 
620 IF D$<>" " THEN RETURN: REM 1110 PRINT: INPUT " "LEV 
10 SPACES 1120 IF LEV<1 OR LEV>10 THEN 1110 

630 EDFLAG=1 1130 RETURN 

640 RETURN 


650 REM ##XEKKEKKEREER 

660 REM INITIALISATION 

670 CLS 

680 GOSUB 1020:REM GET LEVEL 

690 RANDOMIZE VAL(RIGHT$(TIME$, 2) ) 
700 FOR Z=1 TO 10 

710 IF RND(1)<.6 THEN 750 

720 GOSUB 980 


Super Zappo Slot Machine 


IN THE 1930S IN AMERICA, the slot or 
fruit machine was considered by many to 
be a product from the devil's factory of de- 
vices designed to mislead men from the 
true path. If you look through yellowing 
American newspapers of the period, you’d 
be tempted to think that all politicians did 
for publicity in those days was attack slot 
machines with an axe — whenever a 
photographer happened to be present. 

The ‘evil’ of the slot machine lies in the 
gross ease with which the machine is 
played. You put a coin (or token) in a slot, 
and press a button or pull a handle. The 
machine — the vast majority of the time 
— puts on a little display for you, with 
whirling images, lights and bells, and then 
eats your coin. Despite the illusion of in- 
teraction created by the fact that the - 
player starts the little display by pressing 
a button or pulling a handle, and addi- 
tional buttons with names like ‘Nudge’, 
‘Wink, wink’ and ‘Hold’, a particularly 
dumb robot or a trained pigeon, rat or rab- 
bit could play the machine as well as you 
can. 

In a test conducted a few years ago by a 
Sydney newspaper, 10 machines were 
tested, one in each of 10 different loca- 
tions. In the test, 1000 coins were played 
through each machine, and any winnings 
were set aside (that is, they were not fed 
back into the machine). In the 10,000 
coins played, not a single jackpot was re- 
corded. The worst return was 62%, with 
84% as the best. Further, the player was 
temporarily ahead on only two of the ma- 
chines. 

Why would anybody play such ma- 
chines, given such dreadful odds? Who 
knows? This program will enable you to 
play for as long as you like, and lose as 
much as you like. It is a three-reel ma- 
chine, which behaves like a genuine three- 
reel Vegas machine, with the likelihood of 
particular symbols appearing strictly in 
accordance with true slot machine odds. 
Play on, sucker. 


JUST FOR FUN! 


10 REM Super Zappo Slct Machine 
20 REM (c) Tim Hartnell 

Interface Publications, 1986 
30 GOTO 70 
HO M$=A$(1):FOR D=2 TO 20:A$(D-1)=A$(D): 
NEXT D:A$(20)=M$: RETURN 
50 M$=B$(1):FOR D=2 TO 20:B$(D-1)=B$(D): 
NEXT D:B$(20)=M$: RETURN 
60 M$=C$(1):FOR D=2 TO 20:C$(D-1)=C$(D): 
NEXT D:C$(20)=M$: RETURN 
70 GOSUB 630:REM Initialize 
80 REM FERRER ETHER RE REE ERAN EE EH EH 
90 REM Here we go 
100 GO=GO0+1:GOSUB 960:PRINT "This is go 
number"GO 
110 PRINT TAB(3);"=> Your money: $";MID$ 
(STR$(CASH),2);7 <=" 
120 PRINT TAB(3);"= 
ID$(STR$(WG),2);" <: 
130 GOSUB 960 
140 IF INKEY$<>"" THEN 140 
150 PRINT TAB(3);"=> OK, presse <RETURN> 
to pull the handle <=" 
160 PRINT TAB(12);"({or any other key to 
quit)" 
170 W$=INKEY$: IF W$="" THEN 170 
180 IF W$<>CHR$(13) THEN PRINT: PRINT TAB 
(27);"OK, see you later, buddy!":END 
190 CLS: CASH=CASH-1:GOSUB 960 
200 GOSUB 450:REM Spin the reels 
210 GOSUB 250;:REM Payouts 
220 IF CASH<1 THEN PRINT "You've run out 
of money, buddy!™: END 
230 GOSUB 950:GOTO 90 
OUD REM H#HHFRFHKEHHETH THREE RET HHR HHH 
250 REM Payouts 
260 W=VAL(LEFT$(A$( 
(1),1)):Y=VAL(LEFT$¢ 
270 Z=100*8W+108X+Y 
280 WN=0:Q$="" 
290 IF Z=222 THEN WN=120:Q$="Jackpot! Th 
ree bars!" 
300 IF Z=111 THEN WN=16:Q$="Three bells" 


> ee winnings: $"3M 


1),1)):X=VAL(LEFT$(B$ 
CSCI 


( 4)) 


310 IF Z=112 THEN WN=16:Q$="Two bells, o 
ne bar" 
320 IF Z=333 THEN WN=12:Q$="Three plums" 


330 IF 2=332 THEN WN=12:Q$="Two piums, o 
ne boar" 

340 IF Z=444 THEN WN=8:Q$="Three oranges 
n 


per Zappo Slot Machine 


350 IF Z=442 
one bar" 

360 IF Z=556 
one lemon" 
370 IF Z2=551 
one bell" 
380 IF Z>551 
cherries" 
390 IF WN=0 THEN PRINT TAB(23);"=> No lu 

ck that time <=":GOSUB 950:RETURN 

400 GOSUB 960:E$=D$(INT(RND(1)#*6+1)):E$= 
E$+E$+E$: PRINT 

410 PRINT TAB(5);E$;" 
$C(STR$CWN),2);" ";ZE$ 

420 PRINT: WG=WG+WN: RETURN 

430 END 

UNO REM AHFESRRKEKRERHERRHREES 

450 REM Spin the reels 

460 FOR E=1 TO INT(3+RND(1) #6) 

470 GOSUB 40:GOSUB 50:GOSUB 60 

480 PRINT TAB(5);MID$(A$(1),2);TAB(15) 3M 
ID$(B$(1),2);TAB(25) ;MID$(C$(1),2) 

490 NEXT E 

500 GOSUB 960:PRINT " => 
:GOSUB 960 

510 REM SHRSHRERERERERER ERE 

520 FOR E=1 TO INT(3+RND(1)*#6) 

530 GOSUB 50:GOSUB 60 

S540 PRINT TAB(15);MID$(B$(1),2);TAB(25); 
MID$(C$(E),2):NEXT E 

550 GOSUB 960:PRINT " => ";MID$(A$(1),2) 
;TAB(15);MID$(B$(1),2):GOSUB 960 

560 REM #HHREHREREREERE REED 

570 FOR E=1 TO INT(3+RND(1) #6) 

580 GOSUB 60:PRINT TAB( 26) ;MID$(C$(1),2) 
>NEXT E:GOSUB 960 

590 PRINT " => ";MID$(A$(1),2);TAB(15) 3M 
ID$(B$(1),2);TAB(25);MID$(C$(1),2) 

600 GOSUB 960 

610 RETURN 

620 REM HXHHHRERERERHRE RHEE HHH 

630 REM Initialization 

640 DIM A$(20),B$(20) ,C$(20) ,D$(6) 

650 GO=0:WG=0:REM WG =- winnings 

660 CLS: RANDOMIZE:CLS 

670 PRINT: PRINT "How much money are you 

Starting with (in dollars)"; 

680 INPUT CASH:PRINT 

690 IF CASH<1 THEN PRINT 
far with that!":GOTO 670 
TOO FOR J=1 TO 20: PRINT TAB(2#J);"*® ¢$ * 
wt 


THEN WN=8:Q$="Two oranges, 
THEN WN=4:Q$="Two cherries, 
THEN WN=4:Q$="Two cherries, 


AND Z<556 THEN WN=2:Q$="Two 


"3Q$;" pays $";MID 


";MID$(A$(1),2) 


"You won't get 


710 READ E$:A$(J)=E$ 


JUST FOR FUN! 


720 
730 


READ E$:B$(J)=E$ 
READ E$:C$(J)=E$ 
THO GOSUB 970:NEXT J 


750 FOR J=1 
960:NEXT J 
760 CLS:RETURN 

T70 REM #HREHEHERERERREREE EE 

780 DATA "1BELL","1BELL","1BELL", "2BAR", 
"3PLUM", "4ORANGE® 

790 DATA "SCHERRY", "5CHERRY","3PLUM", "1B 
ELL", "2BAR","1BELL" 

800 DATA "4ORANGE", "4ORANGE", "2BAR", 
ERRY","1BELL","3PLUM" 

810 DATA "6LEMON", "5CHERRY", "4ORANGE", "5 
CHERRY", "4ORANGE","1BELL" 

820 DATA "3PLUM","3PLUM", "6LEMON", "HORAN 
GE", "1BELL", "4ORANGE" 

830 DATA "SCHERRY", "S5CHERRY","3PLUM", "1B 
ELL", "3PLUM", "2BAR" 

840 DATA "4ORANGE", "4ORANGE", "6LEMON", "3 
PLUM", "1BELL", "4ORANGE" 


TO 6:READ E$:D$(J)=E$:GOSUB 


"5CH 


PLUM 


BELL 


LEMON 


ORANGE CHERRY BAR 
CHERRY ORANGE BELL 
=> CHERRY 
BAR QRANGE 
RELL BELL 
CHERRY PLUM 
ORANGE BELL 
BELL ORANGE 
PLUM BAR 
CHERRY CRANGE 
=> CHERRY CHERRY 
LEMON 
CRANGE 
PLUM 
BAR 
LEMCN 


JUST FOR FUN! 


ae 850 DATA "5CHERRY", "SCHERRY", "3PLUM", "75 
ELL", "4ORANGE", "1BELL" 


=> CHERRY CHERRY 
rm em Oe a 860 DATA "2BAR","2BAR", "HORANGE", "4ORANG 
LEMON E","1BELL","3PLUM" 
ORANGE 870 DATA "5CHERRY","5CHERRY", "6LEMON", "3 
PLUM PLUM", "4ORANGE", "2BAR" 
BAR 880 REM 1 - BELL 
LEMON 890 REM 2 - BAR 
ORANGE 900 REM 3 - PLUM 
= = = = = = = = = = = = 910 REM 4 - ORANGE 
=> CHERRY CHERRY ORANGE 920 REM 5 - CHERRY 
= = = = = = = = = = = = 930 REM 6 - LEMON 
— = — -_ = = -_ ~ pou = = a 940 DATA Aa EE Se gore mn en 
950 FOR T=1 TO 400:NEXT T: RETURN 
& & & Two cherries pays $2 # & & 960 en "- = = = = = = = = = 
oe ee Be OS OS eee Ce Ce 970 REM Add your computer's sound comman 
is go number 5 d here 


Ss 
> Your money: $451 <= 980 RETURN 
>» Your winnings: $2 < 
> 


OK, press <RETURN> to pull the handle <= 
(or any other key to quit) 


Notes and High Scores — 


16 


‘Your Computer 
Publication — 


INVENTED IN THE LATE eighteen hun- 
dreds, Oz-thello is played on an eight by 
eight checkerboard. When played on a 
board (as opposed to being played within 
a computer), you use pieces which have 
different colours on each side. The game 
begins with four pieces placed on the cen- 
tre squares. 

From this point on, you move by placing 
one of your pieces next to a computer 
piece or pieces, with one of your pieces 
further on. When that happens, all the 
computer pieces ‘reverse’ to become your 
pieces. 

Here's how it works. Suppose a line of 
pieces looked like this: 

OXXXX 
and you decided to put your piece (the O) 
at the end of the line like this: 

OXXXXO 
The computer pieces would reverse, so the 
line looked like this after your move: 

OQQOOOOO 
The game continues until every square on 
the board is filled, or neither player can 
move. As you can see, fortunes can change 
swiftly in this game, as rows branching off 
your position (such as on the diagonals) 
can be changed with a single move. If you 
cannot move at any time, you signal this 
to the computer by entering a zero. Other 
moves are entered by typing in the co-or- 
dinates of the square into which you wish 
to place your piece. Oz-thello was written 
by Graham Charlton. 


COMPUTER IS X 
HUMAN IS 0O 


1234°5.6 7 

Wie ee sor we a. ae ae es 

eC ° 

3 0 a. i 

K O X X 

> X O X 

6 X O X 

v4 X 

O = 3. 8 e Bom A 
1234567 8 


Computer: 8 
Human: 4 
ENTER YOUR MOVE? 47 


CON WW EW PO -- 


90 

100 
110 
120 
130 
140 
150 
160 
170 
THE 
180 


BRAINTWISTERS 


REM Oz 
REM 
In 
GOTO 7 
PRINT 
Sc 
FOR A 
IF ACA 
Q= 0 
FOR C 
K = 0 


IF A(F+C,G+D) 


K = K 
GOTO 


IF A(F+C,G+D) 


Q = Q 
NEXT 

IF A 
N Q = 

IF A 


THEN Q = 


190 


= 8) OR (A = 3 
= 9) THEN Q = 


IF (A 


XOX:T = 


SS SAID SN EEN PD TPB PPE ES ST EE 
A ITNT ITS AO STC TREN OTS SS SOMO TREE DT TIRE AND SY SE: TT TE ET SP IRE YY 5 AE ES SE SSS SS SP SS SS FS SS a ra a 


STE SLES TT A TT A TT TT eS ePrice PvP SPOS ARIAS 


-Thello 


(c) Tim Hartnell, 
terface Publications, 
50 
"MY MOVE..." 

X:H = 0 
= 2 TO 9:FOR B = 2 TO Q9 
»B) <> 46 THEN 220 


1986 


TO 1:FOR D = -1 
A:G = B 

<> S THEN 140 

F + C:G = G+ OD 


TO 1 


= =-1 


>F cs 


+ 1:F = 
110 
<> T THEN 16090 
+ K 
D:NEXT C 
= 2 OR A = 


9 OR B 2 OR B 


= 6° OR B= 


1" 
WW 
© 
=<) 
> 
' 


3 OR B 


- 2 OR A = 
OR A = 
Q/2 


9) AND (B = 3 


= 


8) AND (B = 2 


200 IF Q < H OR (RND(1)<.3 AND Q = 


EN 

210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
44Q 
450 
460 
470 


220 
H: =. 30 
NEXT 
IF H 
IF H 
GOSUB 
GOSUB 
INPUT 
REM E 
So =. x 
IF R 
IF R 
R = R 
M = I 
N = R 
GOSUB 
GOSUB 
GOTO 
REM P 
C = QO 
CLS:R 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FOR B 
FOR D 


>M = A:N = B 
B: NEXT A 
= 0 AND R = 
= 0 THEN 260 
590 

380 

"ENTER YOUR MOVE 
NTER O TO PASS 

:T = XOX 

O THEN 360 

11 OR R > 88 THEN 270 
+ 11 
NT(R/10) 

- 10*M 

590 

380 
40 
RINT BOARD 

2 =.) 
EM OR 


O THEN 700 
neR 


< 


"HOME! 


" COMPUTER IS x" 
. HUMAN IS oO" 


TAB(5)3"1 2 3 4 5 6 7 8" 
eo £0. 9S PRINT Boe. et es 
2 TO 9 


9 
= 8 


OR B 
OR B 


H) TH 


BRAINTWISTERS 


480 PRINT CHR$(A(B,D));" "; 


490 IF A(B,D) =°X THEN C = C + 1 
500 IF A(B,D) = XOX THEN H = H + 1 
510 NEXT D 

520 PRINT B= 1 

530 NEXT B 


540 PRINT TAB(5);"1 2 3 4 5 6 7 8" 
550 PRINT: PRINT 

560 PRINT "Computer:"C 

570 PRINT: PRINT"Human: "H 

580 RETURN 

590 FOR C = = 1 T0 1:FOR D = = 1 TO 1 
600 F = M:G = N 

610 IF A(F+C,G+D) <> S THEN 640 
620 F = F + C:G = G + D 

630 GOTO 610 

640 IF A(F+C,G+D) <> T THEN 680 
650 A(F,G) =T 

660 IF M = F AND N = G THEN 680 
670 F = F = C:G = G = D:GOTO 650 
680 NEXT D:NEXT C 

690 RETURN 

700 GOSUB 380 


Connect Four 


IN THIS GAME, TWO players take turns 
placing pieces in the lowest available 
position in the columns on a game board, 
trying to be the first to get four of their 
pieces to form a line in any direction. 

The program, written by Tony Pearce, 
plays extremely well, and will prove a diffi- 
cult, almost impossible, opponent to de- 
feat. It assigns a value to each possible 
move, and then evaluates each of these 
moves in terms of whether or not this will 
help win the game. It then selects the 
move with the best potential. 

In the program as listed, your pieces are 
shown as an ‘o’, and the computer's 
pieces as ‘M’ (for ‘machine’, I think). If you 
want to change them, simply modify line 
140, with CS being the computer piece, 
and HS the human piece. 


710 


T20 
Pit 
730 
THO 
750 
760 
TTO 
780 
790 


IF C > H THEN PRINT "I'M THE CHAMP!" 


IF H > C THEN PRINT "YOU'RE THE CHAM 
IF H = C THEN PRINT "IT'S A DRAWI® 
END 

CLS 

X = ASC("X"):XOX = ASC("0") 


DIM A(10,10) 
FOR B = 1 TO 10:FOR C = 1 TO 10 
IF B <> 1 AND C <>1 AND B <> 10 AND 


C <> 10 THEN A(B,C) = ASC(",") 


800 
810 
820 
830 
840 
850 
860 
870 


NEXT C:NEXT B 

A(5,5) = es A(6,6) = X 

A(6,5) = XOX: A(5,6) = XOX 

P = 0 

PRINT "DO YOU WANT THE FIRST MOVE" 
PRINT ,"Y OR N® 

INPUT W$ 

GOSUB 380 

IF W$ = "Y¥" OR W$ = "y" THEN GOTO 27 


GOTO 40 


10 REM *###® CONNECT FOUR ###* 
20 REM (c) Tim Hartnell, 1986 


60 PRINT "CONNECT FOUR" 


80 PRINT "ENTER YOUR MOVE AS A NUMBER BE 


90 PRINT "1 AND 8, ENTER O FOR A NEW GAM 


Beas 
100 
110 
120 
130 


140 
150 
160 
170 
180 
190 
200 
210 


FOR F=1 TO 1000:NEXT F . 

DIM A$(10,10),B( 10,2) 

FLAG=0 

REM CHANGE NEXT LINE FOR YOUR OWN 
CHOICE OF SYMBOLS (C$-COMPUTER) 

C$="M":H$="oO":REM M FOR MACHINE! 

FOR F=1 TO 8 

B(F,1)=6 

NEXT F 

FOR F=1 TO 6 

FOR G=1 TO 8 

A$(F,G)="." | 

NEXT G > 
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‘Connect Four 


220 
230 
240 
20 
260 
270 
280 
290 
300 
310 


530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
6 30 
640 
650 


NEXT F 
REM KRERRHHERKRKKKEKREKERHRERHEES 


REM ACCEPT HUMAN MOVE 


GOSUB 430 

PRINT: PRINT "YOUR MOVE..." 
INPUT A 

IF A=0 THEN RUN 


IF A<1 
L=0 

IF A$(L+1,A)<>"." 
L=L+1 

GOTO 310 

IF L=0 THEN 270 
A$(L,A)=H$ 
BCA,1)=B(CA,1)-1 
GOSUB 430 

GOSUB 560 

GOSUB 430 

GOTO 260 

REM HE RERKEKKKRKRKKKKKKRRERK EE EE 


REM PRINT BOARD 


OR A>8 THEN 270 


OR L=6 THEN 340 


CLS 

FOR F=1 TO 6 

COR C24. O78 
PRINT A$(F,G); 
NEXT G 

PRINT 

NEXT F 

PRINT "12345678" 
PRINT 

IF FLAG=1 THEN PRINT "I HAVE WON":EN 
RETURN 


REM HHHRKEKRKKEKRHRHRHERKHEREEE EES 
REM COMPUTER MOVES 


PRINT "MY MOVE..." 
MV=0 

FOR F=1 TO 8 
B(F,2)=0 

NEXT F 

FOR F=1 TO 8 

FOR X=-1 TO 1 

FOR Y=-1 TO 1 


IF B(F,1)=0 THEN 680 


IF A$(B(F,1)+X,F+Y)="" OR A$(B(F,1)+ 


X,F+Y)="." THEN 680 


660 
0 
670 
9) 

6 80 
690 
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IF A$(B(F,1)+X,F+Y)=H$ THEN GOSUB 81 
IF A$(B(F,1)+X,F+Y)=C$ THEN GOSUB 91 


NEXT Y 
NEXT X 


BRAINTWISTERS 


--OMoo.. 
12345678 


I HAVE WON 


700 NEXT F 

710 P=0 

720 FOR Fz=1 TO 8 

730 IF B(F,2)>P THEN P=B(F,2):N=F 

THO NEXT F 

750 A$(B(N,1),N)=C$ 

760 B(N,1)=B(N,1)-1 

770 N=0 

780 P=0 

790 RETURN 

800 REM SKRKKKKKKKKKKRKKKKKRKRKKKRRR 

810 MV=2 

820 M1=MV 

830 IF A$(BCF,1)+(X#2),F+(Y*2))=H$ THEN 
MV=MV+10 

840 IF A$(B(F,1)-X,F-Y)=H$ THEN MV=MV+20 
850 IF MV<>M1+10 THEN 870 

860 IF A$(B(F,1)+(X#*3),F+(Y#*3))=H$ THEN 
MV=MV+1000 

870 B(F,2)=B(F,2)+MV 

880 M1=0 

890 RETURN 

900 REM KHRREKRERKRKKKRKKEKRKRKKKRRHRHEERE 

910 MV=2 

920 M1=MV 

930 IF A$(B(F,1)+(X*2),F+(Y#2))=C$ THEN 
MV=MV+9 

940 IF A$(B(F,1)-X,F-Y)=C$ THEN MV=MV+20 
950 IF MV<>M1+9 THEN 970 

960 IF A$(B(F,1)+(X*3),F+(Y#3))=C$ THEN 
MV=MV+2000:FLAG=1 

970 B(F,2)=B(F,2)+MV 

980 RETURN 


Gomoku 


YOU'LL FIND GOMUKU an easy game to 
learn, but one which is almost impossible 
to win. The computer plays extremely well 
(if a little s-I-o-w-l-y) in this program, which 
is based on one written by Graham Charl- 
ton, the programmer who produced Oz- 
thello. 

You have to try and get five of your 
pieces (the ‘H’) in a line in any direction, 
while the computer is trying to do the 
same with its pieces (the ‘C’). 


Notes and Ideas — 


BRAINTWISTERS 


10 
20 


30 
40 
50 
60 
T0 
80 
90 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
END 
410 
420 
430 
440 
450 
460 
470 
480 
490 


REM GOMOKU 
REM (c) Tim Hartnell, 
Interface Publications, 1986 
GOSUB 760 
GOSUB 140 
GOSUB 250 
GOSUB 140 
GOSUB 330 
GOSUB 140 
IF L>3 THEN PRINT: PRINT "I WIN! !": END 


+ N;: IF A(E)<>Z THEN RETURN 
+ 1:GOTO 120 

PRINT: PRINT: PRINT 

PRINT TAB(12)3;"1 2 3 4 5 6 7 8" 

FOR A = 1 TO 8:PRINT TAB(8);A;" "; 
FOR B = 2 TO 9 

PRINT CHR$(A(A#®10 + B));" "; 

NEXT B 

PRINT A 

NEXT A 

PRINT TAB(12)3;"1 2 3 4 5 6 7 8" 
RETURN 

PRINT: PRINT 

PRINT "Please enter your move..." 
INPUT G 

G=+Ge+ 1 

IF G<12 OR G>89 OR A(G)<>46 THEN 270 


Z = H 
A(G) = Z 
RETURN 


FOR X = 1 TO 4:K = O:N = X(X) 
GOSUB 110 


N = = N:GOSUB 110 
IF K>L THEN L = K 
NEXT X 


IF L>3 THEN PRINT:PRINT "You wint!": 


IF A(A)<>46 THEN 580 
FOR X = 1 TO 4:K = O:N = X(X) 
GOSUB 110 > 
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BRAINTWISTERS 


Gomoku 

500 N = - N:GOSUB 110 830 FOR Q = 1 TO 4 

510 IF K>L THEN H1 = O:L = K 840 READ Z: X(Q) = Z 

520 IF L<>K THEN 550 850 NEXT Q 

530 IF T=1 AND L<4 OR (T=2 OR T=3) AND L | 860 DATA 1,9,10,11 

<2 THEN 550 870 H = ASC("H"):C = ASC("C") 

S40 M= M + 17 880 PRINT: PRINT "Enter Y if you want the 
550 NEXT X n 

560 IF M<=H1 THEN 580 890 PRINT "first move, N if you don't" 
570 H1 = M:G = A 900 N = 0O 

580 NEXT A 910 N= N 4+ 1 

590 IF H1<>0 THEN 660 920 A$ = INKEY$ 

600 T = T + 1: IF T<>4 THEN 420 930 IF A$ <> "y" AND A$ <> "Y" AND AG <> 
610 A = 1 "n"™ AND A$ <> "N" THEN 910 

620 G = INT(RND#*77) + 13 940 RANDOMIZE N 

630 IF A(G) = 46 THEN 660 950 CLS 

640 A = A + 1:IF A<100 THEN 620 960 IF A$ = "y" OR A$ = "Y" THEN RETURN 
650 PRINT: PRINT "I concede the game":PRI ;, 970 FOR J = 1 TO INT(RND*12) + 1 

NT"to a master!!":END 980 READ Z 

660 A(G) =C 990 NEXT J 

670 Z2 = C:A = G:L = 0 1000> ACZ):-=€ 

680 FOR X = 1 TO 4 1010 RETURN 

690 K = 0 1020 DATA 34,35,44,46,47,54,55,56,57,66 
700 N = X(X) 

710 GOSUB 110 

720 N = -N:GOSUB 110 

730 IF K>L THEN L=K 

THO NEXT X 1 he oo : ; : : , 

750 RETURN 5 C Cc... ( 

760 CLS 3 . 3 

770 DIM A(100),X(4) 4 C 4 

780 FOR C = 1 TO 8 5 HCHC H 5 

790 FOR B = 2 TO Q 6 ; H. 6 

800 A(C®10 + B) = 46 7 H , ae ee 

810 NEXT B S £2 2 Bese & o «a 8 

820 NEXT C 12345678 


Notes and High Scores — 


22 


ATR I OEE OPPO OO IP NE SRO. 


Draughts 


THIS PROGRAM, WHICH I wrote when 
holidaying in Wales (how’s that for coun- 
try-dropping!), puts up a fair defense for 
most of the game, then often collapse at 
the end. You might be able to beef up its 
end play. 

When the game begins, you're at the 
bottom of the screen playing up, and the 
computer is at the top playing down. As 
the program is currently set up, the com- 
puter always has the first move. If you 
want the first move, simply delete line 60. 
Your pieces are the H’s, and the comput- 
er's pieces are C's. Your kings are K’s, and 
the computer's kings are S's. 


Notes and Ideas — 


BRAINTWISTERS 


220 
=E 
230 
240 
=H 
250 


REM DRAUGHTS 
REM (c) Tim Hartnell, 
Interface Publications, 1986 
GOSUB 1090 
REM DELETE LINE 50 FOR HUMAN 


REM TO HAVE FIRST MOVE 
GOTO 100 
REM SRXKKKKKKKKEKKKFKRKKRKFKRKKEKKRKRRKEKS 
GOSUB 650 
GOSUB 830 
GOSUB 650 
GOSUB 140 
GOTO 80 
REM #KKFFKKKKKKRKRKEKKKKRRRKERREKRA KS 
FOR X = 1 TO 10:S(X) = O:NEXT X 
SC = 0:A = 89 
A =A - j . 
IF Q(A) <> C AND Q(A) <> CK THEN 290 
B = O:IF A < 29 THEN B = 2 
B= B + 4 
M= A + N(B) 
IF M > 88 OR M < 11 THEN 290 
IF (Q(M)=H OR Q(M)=HK) AND Q(M+4+N(B) ) 
THEN 330 


IF Q(M)<>E THEN 280 

IF Q(M=-11)=H OR Q(M-11)=HK OR Q(M-9) 
OR Q(M-9)=HK THEN 280 

IF Q(M+9)=HK OR Q(M+22)=HK OR Q(M+18 


)=HK THEN 280 


260 
270 
)=C 
280 
19 
290 
300 
Q(2 
310 
320 
330 
340 
350 
360 
370 
380 
390 
B < 
400 
410 
420 
=E 


IF Q(M+11)=HK THEN 280 

IF Q(M+9)<>C OR Q(M+9)<>CK OR Q(M+11 
OR Q(M+11)=CK THEN GOSUB 450 

IF B < 2 OR (Q(A)=CK AND B < 4) THEN 
0 

IF A > 11 THEN 160 

FL = O:IF Q(22) = C OR Q(24) = C OR 
6) = C OR Q(28) = C THEN GOSUB 1330 
IF FL = 1 THEN 620 

GOTO 470 


Q(M+N(B)) = Q(A):Q(M) = E:Q(A) = E 
CO = CO + 1 

GOSUB 650 

A = M + N(B) 

B = 0 

B= B+ 1 

IF (A+2*N(B)<11 OR A+2*N(B)>88) AND 


4 THEN 380 
M= A + N(B) 


IF Q(M) = C AND B > 3 THEN RETURN 
IF (Q(M)=H OR Q(M)=HK) AND Q(M+N(B)) 
THEN 330 > 
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Draughts 


AT ATRL NS ST PS en A ener Se Pan ENP A REE FU rr nse 
P NS EAD TE, eA eS A a 


430 
380 
440 
450 
460 
470 
480 
490 
500 
510 
528 
530 


540 
550 
560 
570 
580 
590 


600 
610 


620 
630 
640 
650 
660 
€70 
T 
680 
690 
T00 
710 
rT Tw . 
720 
730 
T4O 
150 
760 


7170 
7 80 
790 
800 
&10 
820 
8 30 
540 
650 
&60 
870 
8 80 
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550 


IF B < 2 OR (Q(A) = 


CK AND B<4) THEN 


RETURN 
IF SC < 10 THEN SC = SC + 1 
S(SC)=100%A + B + 20:RETURN 


IF SC = 0 THEN 520 

XC = INT(RND*®SC) + 1 

A = INT(S(XC)/100) 

M= A + N(S(XC) = 100%A = 20) 

GOTO 620 

SC = SC + 1: A = INT(RND®88) + 1 

IF Q(A) <> C AND Q(A) <> CK THEN 600 


B = Q 

Boe VBo oe 4 

M = A + N(B) 

IF M > 88 OR M < 11 THEN 590 

IF Q(M) = E THEN 620 

IF B < 2 OR Q(A) = CK AND B < 4 THEN 
IF SC < 300 THEN 520 

PRINT: PRINT "I concede the game": END 


OOM). = 
RETURN 
REM SREHEHRHEKHERKRRRKRAKRARKRARHERRRARARRWRS 


CLS: PRINT: PRINT 


QCA):Q(A) = E 


PRINT " COMPUTER: "CO 

PRINT " HUMAN: "HU; PRINT: PRIN 
PRINT ® 123 4 567 8" 

FOR F = 80 TO 10 STEP - 10 

PRINT (P7105) 

POR G2 7 TO G2 PRINT. CHRSCOCF + G):)% 
>: NEXT G 

PRINT F/7O2NEXT £ 

PRINT -* P23) BS be 7B 

IF CO = 12 OR EU = 12 THEN 760 
RETURN 

IF HU = 12 TEEN PRINT "You have won" 
IF CO = 12 THEN PRINT "I have won" 
PRINT "Thanks for the game": END 


REM HXRRKRRRRHRRAERKERRRRER ER ERE ES 


REM 99 TO CONCEDE 
PRINT PR ONT 
PRINT "Enter 
PRINT: PRINT 
PRINT "Enter 
REM Enter 99 
INPUT 
IF A = 
TF QCA) 


your move" 


your nove" 
to end game 
PE oYOm sk 
99 THEN GOTQ 786 
<> H AND Q(A) <> KEK THEN 860 


BRAINTWISTERS 


890 INPUT "To";B 
900 IF Q(B) <> E THEN 890 


910 Q(B) = Q(A):Q(A) = E 
O20 REM HHRERRERHRERMRERHRER REE HE ER HERE 


930 FOR T = 11 TO 17:IF Q(T) = C THEN Q( 
T) <= °CK 

940 NEXT T 

950 FOR T = 82 TO 88:IF Q(T) = H THEN Q( 
T) = HK 


960 NEXT T 
970 REM HHH FHHHERHRHKKKHEEHEE SH HHH 


980 IF ABS(A - B) < 12 THEN RETURN 

990 TY = RND 

1000 IF TY < .2 THEN PRINT "Good move":G 
OSUB 1400 

1070 IF TY >» .7 THEN PRINT "Got me!":GOS 
UB 1400 

1020 HU = HU+1:Q((A + B)/2)=E:GOSUB 650 
1030 FOR T = 82 TO 88:IF Q(T) = H THEN Q 
(T) = HK 


TU4SU NEAL TIT 

1050 PRINT: INPUT "Can you jump again (Y 
or N)";A$ 

1060 IF A$ <>"y" AND A$ <> "Y" THEN RETU 


1070 A = B:GOTO 880 

REM HHHSSRHHHRARFSKKRAEHAAHREHE EEE 
REM Initialise 

CLS 

PRINT "Please stand by" 

DIM Q(99),N(4),S(10) 

ASC("H"™):HK = ASC("K") 
ASC("C"):CK = ASC("$") 

32:0F = - 99 

FOR M = 1 TO 99:Q(M) = 
FOR M = 1 TO 64 

READ D: READ G 

Q(D) = G: NEXT M 

DATA 81,46,82,67,83,46,84,67, 85,46, 


OF :NEXT M 


1200 


86,67,87,46 


1210 DATA 88,67,71,67,72,46,73,67,74, 46, 
75,67,76,46 

1220 DATA 77,67,78,46,61,46,62,67,63,46, 
64,67 

1230 DATA 65,46,66,67,67,46,68,67,51, 32, 
52,46 

1240 DATA 53,32,54,46,55,32,56,46,57, 32, 
58,46 

1250 DATA 41,46,42,32,43,46,44,32,45,46, 
46,32 

1260 DATA 47,46,48,32,31,72, 32,46, 33,72, 
34,46,35,72 


BRAINTWISTERS 


COMPUTER: 2 1270 DATA 36,46,37,72,38,46,21,46,22,72, 
HUMAN: 1 23,46,24,72 
1280 DATA 25,46,26,72,27,46,28,72,11,72, 
12,46,13,72 


1234567 8 1290 DATA 14,46,15,72,16,46,17,72,18, 46 
8 C4. 0 «-C. «4% Cc 8 1300 FOR M = 1 TO 4:READ X:N(M) = X:NEXT 
T x : Cc 7 M 
6 Cc C C4 6 1310 DATA -11, -9, 11, 9 
5 ; C 5 1320 CO = O:HU = 0O:RETURN 
4 H .H y 1330 IF Q(22)=C AND Q(11)=E THEN A=22:M 
3 ##H Cc . #H 3 = 11:FL = 1:RETURN 
2 H . H H 2 1340 IF Q(22)=C AND Q(13)=E THEN A=22:M 
1 4H H .H 1 = 13:FL = 1:RETURN 


1234567 8 1350 IF Q(24)=C AND Q(13)=E THEN A=24:M 
= 13:FL = 1: RETURN 
1360 IF Q(24)=C AND Q(15)=E THEN A=24:M 


Enter your move = 15:FL = 1:RETURN 
From? 24 1370 IF Q(26)=C AND Q(15)=E THEN Az=26:M 
To? 35 = 15:FL = 1:RETURN 


1380 IF Q(26)=C AND Q(17)=E THEN A=26:M 
= 17:FL = 1: RETURN 

1390 RETURN 

1400 FOR O = 1 TO 1000:NEXT O: RETURN 


fishing 


MAG 


TELLS YOU 


ALL! 
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The Your Computer Robot 


The YC Robot can follow a series of com- 
mands you type in, using a language we 
invented just for the program, called 
Robot Control Language (or ‘RCL’). You 
enter the program, then put your com- 
mands in the lines 50 to 220, and then run 
the program. The ‘robot’ will then carry 
out your instructions. 

In mid-1983, Muse Software of Balti- 
more, USA, released a superb robot simu- 
lation program under the name of Robot- 
war. This program allows you to pre-pro- 
gram a number of robots, before setting 
them loose on a computer-screen battle- 
field to fight it out for victory. Robotwar al- 
lows you to program the robots in a lan- 
guage which is essentially English, with a 
few BASIC commands (such as GOTO and 
GOSUB) thrown in. 

Our program, The Your Computer 
Robot, is much simpler than Robotwar, 
yet still produces satisfying, and surpris- 
ingly interesting results. 

There are twelve commands in RCL, any 
of which can be abbreviated to the first 
two letters. The RCL program is included 
within the overall BASIC program, as a set 
of up to twelve DATA statements, termi- 
nated by a DATA statement which just 
contains an asterisk. These DATA lines are 
kept near the beginning of the program. 
The current line which is being processed 
appears at the top of the screen as the 
program is running, so you can see the 
relevant line and its effect, as it occurs. 

Here is the complete vocabulary of RCL: 
START (which can be abbreviated to ST) 
— Start again; 

PRINTOUT (PR) — stop the robot action, 
clear the screen, and print out the current 
situation before continuing with the run; 
FORWARD (FO) — this is followed by a sin- 
gle number, and it tells the robot to move 
forward by the number of ‘steps’ or 
‘spaces’ indicated by the number which 
follows the command; 

BACK (BA) — this is the opposite, naturally 
enough, of FORWARD. 
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STARTLING SIMULATIONS 


OT TS POE. LMER, BENATAR TS ARR: SR I SAE DOI NOS ANS hay ANON bs GO SCT A AT ANOS BN 


REM The Your Computer Robot 
GOSUB 1640:REM INITIALIZE 
GOTO 400 
REM HHHESKESRKERKERHERHERKREHGERTSA 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DATA "#n 
REM HHERHRRKELRRARETHKRRHR RRR KHE BD 
REM INT UX,AX 
UX=INT(UX+.5):AX=INT(AX+.5) 
RETURN 
REM RHEREKRERHEREHRRHRKERRHSRRER ERE 
REM PRINT OUT 
CLS:REM OR LOCATE 41,71 OR SIMILAR 


PRINT "STEP" PSN™ > *SASUTPSN} SPRINT 


FOR J=1 TO DEPTH 
FOR K=1 TO BREADTH 

PRINT Z$(J,K); 

NEXT K 

PRINT 

NEXT J 

RETURN 

REM SB8RRRRRAFRRKKREKRR ERS ES RRBRKERES 
REM READ PROGRAM 
COUNT=COUNT+1 

READ A$(COUNT) 

IF A$(COUNT)="*" THEN 460 

IF COUNT<20 THEN 410 

REM KRKKKRFKKKKLKKRKKKKRKRKER LE KF 
REM EXECUTE PROGRAM 

PSN=0:REM PROGRAM STEP NUMBER 
PSN=PSN+1 

IF PSN=21 THEN 490:REM END 
FLAG=0 

M$=A$(PSN) 

IF M$="*" THEN 520:REM END 
N$=LEFT$(M$,2) 


The Your Compu 


TURN (TU) — followed by a number, this 
command turns the robot through the 
specified number of degrees (more or 
less); it starts a run at zero degrees, with 
zero being considered as facing the top of 
the screen; 

HOME (HO) — returns the robot to the 
centre of the screen, facing upwards; 
CLEAN (CL) — cleans the previous steps 
away (the action of this command, like the 
others, will become clear once you use it); 
GO — this is followed by two numbers, 
which are the co-ordinates to which the 
robot moves without leaving a trail be- 
tween its old position and the new one; 
RANDOM (RA) — this moves the robot to a 
randomly chosen position on the screen; 
it acts as a random GO; 

REPEAT (RE) — followed by a number, this 
command allows you to cycle through a 
section of a program a specified number 
of times before continuing. This can pro- 
duce some fascinating effects, as you'll 
see; 

END REPEAT (EN) — terminates the RE- 
PEAT cycle. All the RCL commands which 
lie between REPEAT and END REPEAT 
will be cycled through the number of 
times specified: 

FACE (FA) — followed by a number, this 
turns the robot to face an absolute angle, 
with the top of the screen as zero degrees 
(in contrast to FACE, the TURN command 
is relative to the current angle at which 
the robot is facing): 

So — to use the Your Computer Robot, 
just enter your commands in the lines 50 
through to 220 in the program. 

Here are some sample programs — 
For an octogan: 

GO 11,35 

REPEAT 8 

FORWARD 4 

TURN 45 

END REPEAT 

PRINTOUT 


STARTLING SIMULATIONS 


pir Rob 


IF N$="ST" THEN 470:REM START AGAIN 
IF N$="PR" THEN GOSUB 290:REM PRINTO 


IF N$="FO" THEN FLAG=1 
IF N$="BA" THEN FLAG=2 
IF N$="TU" THEN FLAG=3 
IF N$="HO" THEN FLAG=4 
IF N$="CL" THEN FLAG=5 
IF N$="GO" THEN FLAG=6 
IF N$="RA" THEN FLAG=7 
IF N$="RE" THEN FLAG=8 
IF N$="EN" THEN FLAG=9 
IF N$="FA" THEN FLAG=10 
ON FLAG GOSUB 690,850,910,1070,1130, 


1170,1310,1370,1440,1490 


670 
680 
690 
700 
710 
720 
130 
740 
750 
760 
TTO 
780 


GOTO 480 
REM HRRKKKHHEKRREREKREKREKREEEER EE ES 
REM ~ FORWARD 


M$=MID$(M$,4) 

IF ASC(M$)=87 THEN M$=MID$(M$,6) 
F$="FO 

NUM=VAL(M$) 

FOR E=1 TO NUM 

IF UX<1 OR UX>DEPTH THEN 790 

IF AX<1 OR AX>BREADTH THEN 790 
Z$(UX,AX)=T$ 

REM DELETE THE '*2' AT END OF NEXT 


TWO LINES IF BETTER ON YOUR SYSTEM 


790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
0 

990 


IF F$="F" THEN UX=UX+UP:AX=AX+AC#2 
IF F$="B" THEN UX=UX-UP:AX=AX-AC#2 
GOSUB 250 

NEXT E 

RETURN 

REM KRERKRKRLERRKERRKKEKRKKRERKRKERRRKRRWRR 
REM BACK 

M$=MID$(M$,4) 

IF ASC(M$)=75 THEN M$=MID$(M$, 3) 
Fg$="B" 


GOTO 730 
REM HHEHHERERHHHHKKAHRKREHRHEREEEEE 
REM TURN 


M$=MID$(M$,4) 

IF ASC(M$)=78 THEN M$=MID$(M$, 3) 
NUM=VAL(M$) 

Y=INT( (NUM4+17.5)/45) 

IF Y=0 OR Y=8 THEN RETURN 

FOR J=1 TO Y 

IF UP=-1 AND AC=0 THEN AC=1:GOTO 104 


IF UP=0 AND AC=1 THEN UP=1:GOTO 1040 


1000 IF UP=1 AND AC=0 THEN AC=~1:GOTO 10 


4Q 


> 
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To get diamonds: 
RANDOM 
FACE 45 
REPEAT 4 
FORWARD 2 
TURN 90 
END REPEAT 
PRINTOUT 
START AGAIN 


To print out a square: 
GO 11,35 
REPEAT 4 
FORWARD 6 
TURN 90 
END REPEAT 
PRINTOUT 


For a random design of octagons: 
RANDOM 
REPEAT 8 
FORWARD 2 
TURN 45 
END REPEAT 
PRINTOUT 
START AGAIN 


To print out my initials, | wrote this little 
RCL program: 

GO 6,10 

FACE 90 

FORWARD 7 

GO 8,26 

FORWARD 5 


FACE 180 
FORWARD 6 
GO 6,26 
FORWARD 6 
GO 6,34 
FORWARD 6 
PRINTOUT 


With these examples to get you underway, 


you're sure to be able to create some 
pretty interesting designs of your own. 
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STARTLING SIMULATIONS 


1010 
O40 
1020 


IF UP=0 AND AC=-1 THEN UP=-1:GOTO 1 


IF UP=-1 AND AC=-1 OR UP=1 AND AC=1 


THEN AC=0:GOTO 1040 


1030 


IF UP=-1 AND AC=1 OR UP=1 AND AC=-1 


THEN UP=0 


1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 


NEXT J 
RETURN 


REM KKRFKFKKKKKKKKKEKKKKKRKKKRK KKK EF 


REM HOME 
AX=INT((BREADTH+.5)/2) 
UX=INT((DEPTH+.5)/2) 
UP=-1:AC=0:REM FACES UP 
RETURN 


REM KFHFKKKKKKKKEKKKKKKKKHKKRAR ES 


REM CLEAN 
GOSUB 1770 
RETURN 


REM #HRKKFKKFKKKKEKKKKFKKRKKKKRKRRRE 


REM GO X,Y 
P=0 
P=P+1 


IF MID$(M$,P,1)="," THEN 1230 


IF P<LEN(M$) THEN 1190 
RETURN: REM ERROR 
UX=VAL(MID$(M$,4,P-1)) 


AX=VAL(RIGHT$(M$, LEN(M$)-=P)) 


GOSUB 250 


IF UX<1 OR UX>DEPTH THEN 1290 
IF AC<1 OR ACD>BREADTH THEN 1290 


Z$(UX,AX)=R$ 
RETURN 


REM KHFKKKKRHKKKKRKRFEKKKKRKRRRERAE SE 


REM RANDOM 
AX=INT(RND(1)*BREADTH) 
UX=INT(RND(1)*DEPTH) 
Z$(UX,AX)=R$ 

RETURN 


REM SVERRKKERCKKKKKKKKERRKKRKRARER AS 


REM REPEAT 
M$=MID$(M$,4) 


IF ASC(M$)=69 THEN M$=MID$(M$,5) 


RECOUNT=VAL(M$) 
MARKER=PSN 
RETURN 


REM KKEKKKKKKEKKKKEKRKRKEKKEKHKRKRRREK 


REM END REPEAT 
RECOUNT=RECOUNT-1 


IF RECOUNT>O THEN PSN=MARKER 


RETURN 


REM RRRRKKKKRKKKKERRKKKKRKRRHERRRA HEH 


REM FACE 
M$=MID$(M$,4) 


1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 


IF ASC(M$)=69 THEN M$=MID$(M$, 3) 
NUM=VAL(M$) 

Y=INT( (NUM4+17.5)/45) #45 

IF Y=0 OR Y=360 THEN UP=-1:AC=0 

IF Y=45 THEN UP=-1:AC=1 

IF Y=90 THEN UP=0:AC=1 

IF Y=135 THEN UP=1:AC=1 

IF Y=180 THEN UP=1:AC=0 

IF Y=225 THEN UP=1:AC=-1 

IF Y=270 THEN UP=0:AC=-1 

IF Y=315 THEN UP=-1:AC=-1 

RETURN 

REM KKFKKKKKKKKKFKKKRERKKRRRRRRRE 
REM INITIALIZE 

CLS 
REM ADJUST NEXT TWO LINES FOR 
BEST RESULTS ON YOUR SYSTEM 


STEP 7 > PR 


X 
X X 
X x 
X X 
X 
X 
X X 
X X 
X X 
X 
X 
X X 
X X 
X X 
X 


Notes and Ideas — 


STARTLING SIMULATIONS 


uter Robot 


1670 


1680 
1690 
1700 
1710 
1720 
1730 
1740 


1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 


BREADTH=80:REM CHARACTERS ACROSS 
DEPTH=24:REM CHARACTERS DOWN 
BREADTH=BREADTH-1 

DEPTH=DEPTH-3 

UP=-1:AC=0:REM STARTS FACING UP 
DIM A$(20):REM FOR ROBOT PROGRAM 
DIM Z$( DEPTH, BREADTH): REM DISPLAY 
T$="X":;REM PUT SYMBOL HERE YOU 


WANT TO USE FOR ROBOT'S TRAIL 


AX=0:UX=0 
REM FILL ARRAY WITH SPACES 
FOR J=1 TO DEPTH 
FOR K=1 TO BREADTH 
Z$(J,K)=" " 
NEXT K 
NEXT J 
RETURN 
X 
X X 
X 
X X 
X X 
X 
X 
X X 
X X 
X X 
X 
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Livin’ in the Lodge 


They say that in Australia, politicians are 
considered to be the third worst form of 
life (just above child molesters and jour- 
nalists). Most of us feel, from time to time, 
we could do a better job than those daring 
to run our lives from Canberra. 

Well, here’s your chance to prove your 
political skills. With this program, you 
move into the Lodge in Canberra to run 
the country. To retain your popular sup- 
port (and the number one job in the coun- 
try), you have to keep Australia together. 
You need to do your best to improve the 
standard of living, keep inflation and 
unemployment down, stimulate private 
investment, and generally maintain an ac- 
ceptable growth in the economy, all at the 
same. You'll soon discover the wisdom of 
the words of one former occupant of the 
Lodge: “‘A Prime Minister's life wasn’t 
meant to be easy”. 

The population of Australia is around 
three million when you begin, and unem- 
ployment will be hovering around 10%. 
You'll be asked to make some snap judge- 
ments on levels of government spending, 
the cost of wages, and on your current im- 
migration policy. To take part in this pro- 
gram, you have to be the ACTU, the Prices 
Surveillance Authority, the New Right, the 
Industrial Tribunal, and the Department of 
Immigration and Ethnic Affairs, all at the 
Same time! 

You'll soon find that, no matter how 
good your intentions, it is a very difficult 
juggling act to control. 
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STARTLING SIMULATIONS 


10 REM LIVIN! IN THE LODGE 
20 REM PHILIP COATES 


30 REM (c) Interface Publications, 1986 


| 40 GOSUB 1180:REM INITIALIZE 


FO REM KHKKKEKFKKKKKKKKKKHHRHEKEH EH 


60 REM MAJOR CYCLE 

70 P=INT(P+(P*273/ML) ) 

80 GOSUB 180:REM PRINTOUT 

90 GOSUB 530:REM CALCULATE 

100 REM NOW CHECK END GAME 

110 GOSUB 730:REM STANDARD OF LIVING 

120 GOSUB 800:REM INFLATION RATE 

130 GOSUB 860:REM UNEMPLOYMENT 

140 IF GAME=1 THEN CLS:GOTO 910 

150 GOTO 70 

160 REM HRRREHHHEREKEEKHERRREEEER EEE 

170 REM PRINTOUT 

180 CLS 

190 PRINT "PRIME MINISTER "sA$;":" 

200 PRINT "YOUR PARTY HAS BEEN IN 
POWER FOR"Y+Z/4"YEARS" 

210 PRINT "----~----~---~-~---+----------- 


La 


220 PRINT "-----STATE OF THE NATION----- 


" 


PAO PRIN. Woes eee te ets eee 


" 


240 PRINT "POPULATION"P 

250 PRINT "NO. UNEMPLOYED"INT(U)" “"INT( 
100*U/P) "4G" 

260 PRINT "CURRENT WAGES $"WO" INFLATION 
NINT(IP)"@" 

270 PRINT "GOVT, EXPENDITURE LAST QTR. §$ 
M"GE 

280 PRINT "UNEMPLOYMENT COST $M"INT(10*G 
U7 10 

290 PRINT "INCOME FROM TAXES $M"INT(GI#*1 
0)/10 

300 PRINT "BUDGET SURPLUS(+)/DEFICIT(~) 
$M"INT(BD#®10)/10 

310 PRINT "GROSS DOMESTIC PRODUCT $M"INT 
(GDP#10)/10 

320 IF Y+Z/4>.5 THEN PRINT "CHANGE IN LI 
VING STANDARD"INT((2*((RGDP/AGDP) #100)-1 
00)/3)"g" 

230 PRINT: Seeder os et eee cetesece tee pees 
ee eeree: | | 

340 PRINT "PUBLIC INVESTMENT $M" IN 
T(IV*10)/10 

S508 SPIRE 0 cease ener a ie ee a 


n 


360 PRINT "OK, PRIME: MINISTER "4460-20" 


in the Lodge 


STARTLING SIMULATIONS 


370 INPUT "ENTER GOVERNMENT SPENDING $M" 

;GE 

380 INPUT "ENTER COST OF WAGES $M"5;WN 

390 PRINT "IS YOUR GOVERNMENT IN FAVOUR 

OF" 

400 PRINT "IMMIGRATION THIS QUARTER (Y/N 

an 

410 X$=INKEY$ 

420 IF X$<>"Y™ AND X$<>"N" THEN 410 

430 PRINT TAB(20);"0OK...";X$ 

440 FOR H=1 TO 1000:NEXT H 

450 IF X$<>"Y" THEN RETURN 

460 PRINT "HOW MANY IMMIGRANTS WILL YOU 

ALLOW INTO AUSTRALIA?" 

470 INPUT M 

480 IF M<O THEN 470 

490 P=P4+M 

500 RETURN 

510 REM SH KKKKKKFKFKKFEKEKRFKFKRKRKRRKKAS 

520 REM CALCULATIONS 

530 CN=CN+(CN®IP/100) 

S540 U=P*(GE+1IV)/(CN#10)+P#(IP/1000) 

550 GU=U"*WN/ML: REM UNEMPLOYMENT COST 

560 GI=(((P-U)*wWN*®.4)/ML):REM INCOME 
FROM TAXES 

570 BD=BD+GI-GU-GE:REM BUDGET DEFICIT 

580 AGDP=AGDP¥*(1+(IP/100) ) 

590 GDP=GE+IV+((P-U) *WN/ML) 

600 RGDP=GDP*440/AGDP 


PRIME MINISTER HARTNELL: 
YOUR PARTY HAS BEEN IN 
POWER FOR .5 YEARS 


POPULATION 3001638 
NO. UNEMPLOYED 207954 
CURRENT WAGES $ 4 
GOVT. EXPENDITURE LAST QTR. 
UNEMPLOYMENT COST $M .8 
INCOME FROM TAXES $M 4.4 
BUDGET SURPLUS(+)/DEFICIT(-) $M .6 
GROSS DOMESTIC PRODUCT $M 250.1 


6 4 
INFLATION 6 % 
$M 3 


OK, PRIME MINISTER HARTNELL... 
ENTER GOVERNMENT SPENDING $M? 7 
ENTER COST OF WAGES $M? 12 

IS YOUR GOVERNMENT IN FAVOUR OF 
IMMIGRATION THIS QUARTER (Y/N)? 


%10 
620 
6 30 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
~15 
760 
770 
780 
790 
800 
810 
820 
8 30 
840 
850 
860 
870 
£80 


IP=((GE+IV)/CN#®.1+(WN/WO)/100)*100 
ITV=(CN#67)/(CIP#IP) 

WO=WN 

Z=Z+1:IF Z>4 THEN Z=1:Y=Y+1 
RETURN 

REM SRHKKKKKKKRKRKKKKKFEKEK KE FH * 
REM CHECK BUDGET DEFICIT 

IF BD>-1000 THEN RETURN 

GAME=1 

FLAG=1 

RETURN 

REM KHRRKKKKKKKKKRKKRFKRRKKKRKKERKKA SF 
REM CHECK STANDARD OF LIVING 

IF Y¥<.75 THEN RETURN 

IF INT((2#((RGDP/AGDP) #100)-100)/3)> 
THEN RETURN 

GAME=1 

FLAG=2 

RETURN 

REM KKKKKKRKKKKKKFKKKRKERRERR EEF 
REM CHECK INFLATION RATE 

IF IP<15 THEN RETURN 

GAME=1 

FLAG=3 

RETURN 

REM KHKKFRKEKKKRRKKKKFKKKEKKKRRERRKKEE 
REM CHECK UNEMPLOYMENT 

IF INT(U#100/P)<15 THEN RETURN 
GAME=1 


PRIME MINISTER HARTNELL, YOUR 
GOVERNMENT'S POOR ECONOMIC 
PERFORMANCE HAS LED TO AN UNACCEPTABLE 
RISE IN UNEMPLOYMENT 

AMONG OTHER THINGS... 
THE LACK OF CONFIDENCE IN YOUR 
GOVERNMENT IS SO BAD THERE ARE 
CALLS FOR YOU TO RESIGN...YOU 
DECIDE TO CALL FOR AN ELECTION 
AND THE OPPOSITION WINS... 
YOU WERE PRIME MINISTER FOR 1.75 YEARS 
DURING YOUR TERM OF OFFICE, THE 
POPULATION ROSE BY 5638 
THE UNEMPLOYMENT RATE BECAME 15.8 % 
AND THE INFLATION RATE BECAME 18.2 % 
STANDARD OF LIVING CHANGED BY 43 @% 
AND THE BUDGET SURPLUS/DEFICIT 
WAS $M-22.9 
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STARTLING SIMULATIONS 


890 FLAG=4 

900 RETURN 

910 REM HPRERKERKRKKRKKRKEKRARKRKKRKRKRKRRKKKKK HK 

920 REM END OF THE GAME 

930 PRINT "PRIME MINISTER ";A$;", YOUR" 
940 PRINT "GOVERNMENT'S POOR ECONOMIC" 
950 PRINT "PERFORMANCE HAS LED TO AN UNA 
CCEPTABLE® 


960 IF FLAG=1 THEN PRINT "BUDGET DEFICIT 
" 


970 IF FLAG=2 THEN 
ANDARD OF LIVING" 


PRINT "DROP IN THE ST 


980 IF FLAG=3 THEN PRINT "RISE IN THE IN 
FLATION RATE" 

990 IF FLAG=4 THEN PRINT "RISE IN UNEMPL 
OYMENT® 

1000 PRINT " AMONG OTHER THINGS. 
1010 PRINT "~-~-~--------~----~~-~~-~----~-~-- 
bees he " 

1020 PRINT "THE LACK OF CONFIDENCE IN YO 
UR" 

1030 PRINT "GOVERNMENT IS SO BAD THERE A 
RE" 

1040 PRINT "CALLS FOR YOU TO RESIGN...YO 
yu" 

1050 PRINT "DECIDE TO CALL FOR AN ELECTI 
ON" 

1060 PRINT "AND THE OPPOSITION WINS..." 
1070 FOR H=1 TO 1000:NEXT H 

1080 PRINT "--~~-----~-~~~.~~~~~---..-.---- 
Pree n 

1090 PRINT "YOU WERE PRIME MINISTER FOR" 


Y+(Z*®.25) "YEARS" 

1100 PRINT "DURING YOUR TERM OF OFFICE, 

THE" 

1110 PRINT "POPULATION ROSE BY"P-3*ML 

1120 PRINT "THE UNEMPLOYMENT RATE BECAME 

"INT(U®1000/P)/10"%" 

1130 PRINT "AND THE INFLATION RATE BECAM 

E"INT(10®IP)/10"%" 

1140 PRINT "STANDARD OF LIVING CHANGED B 

Y"INT((2®((RGDP/AGDP) #100)-100)/3) "4%" 

1150 PRINT "AND THE BUDGET SURPLUS/DEFIC 
WAS $M"INT(10*®BD)/10 

END 

REM HRRHERHRERERHHERHEEEEEE HE HH 

REM INITIALIZATION 

CLS 

RANDOMIZE 

CLS 

ML=1000*1000 

P=3*ML:REM POPULATION 

U=P/10:REM UNEMPLOYMENT 


1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 


1360 
1370 
1380 
1390 
1400 


ITV=236:REM INVESTMENT 
GE=118:REM GOVERNMENT EXPENDITURE 
GU=0:REM COST OF UNEMPLOYMENT 
GI=0:REM INCOME FROM TAXES 
WN=100:REM NEW WAGES 

WO=100:REM OLD WAGES 

IP=5:REM INFLATION PERCENT 
GDP=440:REM GROSS DOMESTIC PRODUCT 
AGDP=440:REM BASE YEAR GDP 
RGDP=440:REM REAL GDP 

CN=354:REM ECONOMIC CONSTANT 

(USED THROUGHOUT SIMULATION) 
Z=1:GAME=0:FLAG=0 

Y=0:REM YEAR 

PRINT "ENTER YOUR LAST NAME" 

INPUT A$ 

RETURN 


Notes and Ideas — 


MUSIC SOUND RECORDING STAGE LIGHTING 


Taking 
~ you behind 
the scenes of the 


exciting world of 
today’s music 


DHE MAGAZINE = °rosns 
FOR MUSIC-MAKERS 


MUSIC SOUND RECORDING STAGE LIGHTING 
Lighting People 


Producers THE MAGAZINK 
FOR MUSIC-MAKERS 


MUSIC SOUND RECORDING STAGE LIGHTING 
the latest 


SONICS == 


ee eee reviews, 


THE MAGAZINE = 
FOR MUS (MAKERS : 


Musicians 
Home Studio Fanatics 
Road Crews 
Recording Engineers 


The 
latest 
instruments, 


-———— 


The Doctor is In 
You probably know about the famous 
ELIZA program, which imitates the action 


of a particularly dumb psychiatrist. Now 
you can sample it in action, with our pro- 
gram DOCTOR. This is the third version of 
ELIZA I’ve written, and — as far as I can 
ascertain — is more comprehensive than 
any other published version of the pro- 
gram. 
Here's a sample conversation with the 

Doctor: 

THE DOCTOR ISIN... PLEASE STAND BY 


WELCOME TO ANOTHER SESSION WITH 
THE DOCTOR 


HELLO... 
>? HI THERE DOC 


HI TO YOU... RELAX NOW, AND LET'S 
TALK ABOUT YOUR SITUATION 


>? | HAVE A SERIOUS PROBLEM 


HOW CAN | HELP YOU WITH A SERIOUS 
PROBLEM 


>? IT IS TO DO WITH MY MAD TEACHER 


ARE YOU CERTAIN THAT IT’S TO DO 
WITH YOUR MAD TEACHER 


>? YES | AM VERY CERTAIN 
YOU'RE PRETTY POSITIVE 


>? IT COMES FROM WRESTLING WITH IT 
DAY AND NIGHT 


EARLIER YOU MENTIONED YOUR MAD 
TEACHER TELL ME MORE ABOUT THAT 


>? IT STARTED WHEN I WAS TEN YEARS 
OLD 


THAT'S VERY INTERESTING 


4 a a A A A NH 
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KNOW THYSELF 


10 REM DOCTOR 

20 REM (C) TIM HARTNELL, 1986 

30 REM INTERFACE PUBLICATIONS 

40 GOSUB 1160:REM INITIALISE 

50 PRINT: PRINT "--------~-------------- = 
woe ee ": PRINT 

60 PRINT ">"; :INPUT X$ 

70 IF X$="" THEN END: REM QUIT BY JUST PR 
ESSING 'RETURN'! 

80 PRINT 

90 IF X$=Z$ THEN PRINT "PLEASE DON'T REP 
EAT YOURSELF":GOTO 50 

100 Z$=X$ 

110 IF LEFT$(X$,7)="GOODBYE" THEN PRINT 
"OK, SEE YOU AGAIN SOMETIME": END 

120 REM **® LOOK FOR TRIGGER PHRASES AT S 
TART OF INPUT *# 

130 L=0 

140 L=L+1 

150 LN=LEN(C$(L)) 

160 IF LEFT$(X$,LN)=C$(L) THEN 380:REM T 
RIGGER FOUND 

170 IF L<K THEN 140 

180 REM **® PROGRAM GETS HERE 1F NO TRIGG 
ER PHRASE FOUND AT START OF X$ ## 

190 REM *®* NOW LOOK FOR TRIGGER WORDS WI 
THIN INPUT *# 

200 X$=" "4X$Hamr tt 

210 M=LEN(X$) 

220 L=0 

230 L=L+1 

240 IF L=M-1 THEN 820:REM NO TRIGGER FOU 
ND 

250 IF MID$(X$,L,1)=" " THEN 270 

260 GOTO 230 

270 X=L+1 

280 Y=0 

290 Y=Y+"1 

300 IF MID$(X$,(X+Y),1)=" " THEN Q$=MID$ 
(X$,X,Y):GOTO 320 

310 GOTO 290 

320 N=0 

330 N=N+1 

340 IF Q$=C$(N) THEN 730:REM TRIGGER WOR 

D FOUND 

350 IF N<K THEN 330 

360 GOTO 230 

370 REM HHRRHHHHHHRERHRHREKERER 

380 REM TRIGGER PHRASE FOUND AT START OF 
INPUT 

390 T=INT( RND(1) #3) +1 

400 IF T=1 THEN G$=D$(L) 

410 IF T=2 THEN G$=E$(L) 


KNOW THYSELF 


>? | WANT SOME ASSISTANCE WITH MY 
FEARS 


WHAT WOULD IT MEAN TO YOU IF YOU 
GOT SOME ASSISTANCE WITH YOUR 
FEARS 

>? | THINK IT WOULD MAKE ME BRAVER 


DO YOU DOUBT IT WOULD MAKE YOU 
BRAVER 


>? [ ALWAYS WANT TO RUN AWAY 
ISN'T ‘ALWAYS’ A LITTLE STRONG? 
>? | GUESS IT MIGHT BE 


WHY DON'T WE GO BACK AND DISCUSS 
YOUR FEARS A LITTLE MORE? 


420 IF T=3 THEN G$::F$(L) 

430 REM ** CHECK TO SEE IF ENDS IN ASTER 

ISK, IF SO NEEDS PART OF INPUT ADDED 

H4uO FLAG=0 

450 IF RIGHT$(G$,1)="*®" THEN FLAG=1:G$=L 

EFT$(G$,(LEN(G$)-1) ) 

460 PRINT G$;" "; 

470 IF FLAG=0 THEN 50:REM NO NEED FOR AD 

DED MATERIAL 

480 REM ** NOW USE BALANCE OF INPUT *## 

490 X$=" "4MID$(X$,LN+2,LEN(X$))+" " 

500 REM HEREKKKKKKRKRRRRRRAE 

510 REM *# CONJUGATION CHANGES *# 

520 REM ** ALSO LOOK FOR 'MY' TO TRIGGER 
"MYFLAG'(K$) *# 

530 LN=LEN(X$) 

540 M=0 

550 M=M+1 

560 IF M=LN THEN 50 

570 IF MID$(X$,M,1)=" " THEN 590 

580 GOTO 550 

590 X=M+1 

600 Y=0 

610 Y=Y+1 

620 IF MID$(X$,(X+Y),1)=" " THEN Q$=MID$ 

(X$,X,Y):GOTO 650 

630 IF X+Y>250 THEN 550 

640 GOTO 610 

650 MN=0 

660 MN=MN+1 

670 IF Q$="MY" AND K$="" THEN K$=MID$(X$ 

,»X+3,LEN(X$)-4) :K$=LEFT$(K$,LEN(K$)-~1) 

680 IF Q$=A$(MN) THEN PRINT B$(MN);" "33 

GOTO 550 

690 IF MN<KK THEN 660 

700 PRINT Q$;" "; 

710 GOTO 550 

720 REM 4X HKRKRKRKEKEKRERKREKRKKREE 

730 REM TRIGGER WORDS FOUND 

THO T=INT(RND(1) #3) +1 

750 Q$="" 

760 IF T=1 THEN Q$=D$(N) 

770 IF T=2 THEN Q$=E$(N) 

780 IF T=3 THEN Q$=F$(N) 

790 IF RIGHT$(Q$,1)<>"#" THEN PRINT Q$:G 

OTO 50 

800 REM ** FALLS THROUGH TO NEXT SECTION 
IF TRIGGER WORD JUDGED UNSUITABLE #*#* 

810 REM KHEKERKRKKEKKKRRKEKRERKRRRRRKKK SE 

820 REM RANDOM REPLIES/NO TRIGGER 

830 IF K$<>"" THEN 1030:REM 'MYFLAG! IS 

NOT EMPTY, SO GO THERE 

840 T=INT(RND(1)#8)+1 > 
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KNOW THYSELF 


850 ON T GOSUB 870,890,910,930,950,970,9 
90,1010 

860 GOTO 50 

870 PRINT "WHAT DOES THAT SUGGEST TO YOU 
Qn 

880 RETURN 

890 PRINT "I'M NOT SURE I UNDERSTAND THA 
T FULLY" 
900 RETURN 
910 PRINT 
920 RETURN 
930 PRINT 
940 RETURN 
950 PRINT "WELL...PLEASE CONTINUE..." 
960 RETURN 

970 PRINT "WHY?" 

980 RETURN 

990 PRINT "AND THEN?" 

1000 RETURN 

1010 PRINT "I SEE...PLEASE TELL ME MORE 
ON THAT® 

1020 RETURN 

1030 REM ®* USE 'MYFLAG! ## 

1040 T=INT(RND(1)#8)+1 

1050 IF T=1 THEN PRINT "TELL ME MORE ABO 
UT YOUR ";K$ 

1060 IF T=2 THEN PRINT "EARLIER YOU MENT 
IONED YOUR ";K$:PRINT "TELL ME A BIT MOR 
E ABOUT THAT" 

1070 IF T=3 THEN PRINT "DOES THAT HAVE A 
NYTHING TO DO":PRINT “WITH YOUR ";K$;"2" 


"PLEASE ELABORATE ON THAT" 


"THAT'S VERY INTERESTING" 


1080 IF T=4 THEN PRINT "IS THERE A LINK 

THERE WITH":PRINT "YOUR ";K$;"2" 

1090 IF T=5 THEN PRINT "WHY DON'T WE GO 

BACK AND DISCUSS":PRINT "YOUR ";K$;" A L 
ITTLE MORE?" 

1100 IF T=6 THEN PRINT "DOES ANY CONNECT 
ION BETWEEN THAT AND®:PRINT "YOUR "3K$;3" 
SUGGEST ITSELF?" 

1110 IF T=7 THEN PRINT "WOULD YOU PREFER 
TO TALK": PRINT "ABOUT YOUR ";K$;"2" 
1120 IF T=8 THEN PRINT "I THINK PERHAPS 

WORRIES ABOUT YOUR":PRINT K$;" ARE BOTHE 


RING 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
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You" 

IF RND(1)>.7 THEN K$="" 

GOTO 50 

REM ##RRRKKEKKR EH 

REM INITIALISATION 

RANDOMIZE VAL(RIGHT$(TIME$,2) ) 

CLS 

DEFINT A-Z 

DIM A$(14),B$(14):REM CONJUGATIONS 


1210 


DIM C$(45),D$(45),E$(45),F$(45): REM 
TRIGGERS WORDS AND REPLIES 


1220 Z$="":REM TO STOP REPETITIONS 

1230 K$="";REM 'MYFLAG'! 

1240 PRINT:PRINT 

1250 PRINT "THE DOCTOR IS IN...PLEASE ST 
AND BY" 

1260 KK=0 

1270 KK=KK+1 

1280 READ A$(KK),B$(KK) 

1290 IF B$(KK)="*" THEN 1310 

1300 GOTO 1270 

1310 K=0 

1320 K=K+1 

1330 READ C$(K),D$(K),E$(K),F$(K) 

1340 IF F$(K)="#®" THEN 1360 

1350 GOTO 1320 

1360 CLS 

1370 PRINT "WELCOME TO ANOTHER SESSION" 
1380 PRINT "WITH THE DOCTOR....." 

1390 PRINT 

1400 PRINT "HELLO..." 

1410 RETURN 

1420 REM #### 

1430 REM DATA 

1440 REM *# CONJUGATIONS #* 

1450 DATA AM,ARE,WAS,WERE,I,YOU,MY,YOUR 
1460 DATA "YOU'VE","I'VE", YOUR,MY,ARE, AM 
1470 DATA "YOU'RE","I AM", YOURS,MINE, YOU 


, ME, ME, YOU, *, # 


1480 REM ® TRIGGER WORDS/REPLY PHRASES # 
1490 DATA "I NEED" 

1500 DATA "WHY DO YOU NEED*®* 

1510 DATA "WOULD IT REALLY BE HELPFUL IF 
YOU GoT#" 

1520 DATA "ARE YOU SURE YOU NEED#*" 

1530 DATA "WHY DON'T YOU" 

1540 DATA "DO YOU REALLY THINK I DON'!T#®* 
1550 DATA "PERHAPS EVENTUALLY I WILL#®" 
1560 DATA "DO YOU REALLY WANT ME TO#® 
1570 DATA "WHY CAN'T I" 

1580 DATA "DO YOU THINK YOU SHOULD BE AB 

LE LOS" 

1590 DATA “WHY CAN'T you#"r 

1600 DATA "PERHAPS YOU HAVEN'T TRIED HAR 

D ENOUGH" 

1610 DATA "ARE you" 

1620 DATA "WHY ARE YOU INTERESTED IN WHE 

THER I AM OR NOT#® 

1630 DATA "WOULD YOU PREFER IT IF I WERE 

NOT#" 


Ne 


KNOW THYSELF 


1640 DATA "PERHAPS YOU SOMETIMES DREAM I 
AM#" 

1650 DATA "I CAN!T®" 

1660 DATA "HOW DO YOU KNOW YOU CAN'T#" 

1670 DATA "HAVE YOU TRIED?" 

1680 DATA "PERHAPS, NOW, YOU CAN#®" 

1690 DATA "I AM" 

1700 DATA "DID YOU COME TO ME BECAUSE YO 

U ARE*®" 

1710 DATA "HOW LONG HAVE YOU BEEN® 

1720 DATA "DO YOU THINK IT'S ABSOLUTELY 

NORMAL TO BE#®" 

1730 DATA "I'M*® 

1740 DATA "DO YOU ENJOY BEING#*" 

1750 DATA "WHY TELL ME YOU'RE*" 

1760 DATA "WHY ARE YOou#" 

1770 DATA "I WANT® 

1780 DATA "WHAT WOULD IT MEAN TO YOU IF 

YOU GoT#" 

1790 DATA "WHY DO YOU WANT#®" 

1800 DATA "WHAT WOULD IT ADD TO YOUR LIF 

E IF YOU GOT#" 

1810 DATA "WHAT" 

1820 DATA "WHY DO YOU ASK?" 

1830 DATA "HOW WOULD AN ANSWER TO THAT H 

ELP YOU?" 

1840 DATA "WHAT DO YOU THINK?" 

1850 DATA "HOW" 

1860 DATA "HOW WOULD YOU SOLVE THAT?" 

1870 DATA "IT WOULD BE BEST TO ANSWER TH 

AT FOR YOURSELF" 

1880 DATA "WHAT IS IT YOU'RE REALLY ASKI 

NG?" 

1890 DATA "WHO" 

1900 DATA "DO YOU OFTEN THINK ABOUT SUCH 

QUESTIONS" 

1910 DATA "WHAT ANSWER WOULD PUT YOUR MI 

ND AT REST" 

1920 DATA "WHO DO YOU THINK*" 

1930 DATA "WHERE® 

1940 DATA "THAT'S A PRETTY SILLY QUESTIO 

Nf 

1950 DATA "DO YOU REALLY NEED TO KNOW WH 

ERE*®" 

1960 DATA "WHAT WOULD IT MEAN TO YOU IF 

I TOLD YOU WHERE#" 

1970 DATA "WHEN" 

1980 DATA "HOW SHOULD I KNOW WHEN#®" 

1990 DATA "THE TIME SHOULD NOT BE DISCUS 

SED HERE" 

2000 DATA "THINGS HAVE A HABIT OF HAPPEN 

ING AT MORE OR LESS THE RIGHT TIME*®" 

2010 DATA "WHY" 


2020.DATA "WHY DON'T YOU TELL ME THE REA 
SON WHY#" 

2030 DATA "WHAT HAVE YOU TOLD ME WHICH W 
OULD ALLOW ME TO TELL YOU WHY#" 

2040 DATA "DO YOU REALLY NEED TO KNOW WH 
Yan 

2050 DATA "BECAUSE®" 

2060 DATA "IS THAT THE REAL REASON?" 
2070 DATA "WHAT OTHER REASONS COME TO MI 
ND?" 

2080 DATA "WHAT ELSE DOES THAT EXPLAIN?" 
2090 DATA "SORRY" 

2100 DATA "IN WHAT OTHER CIRCUMSTANCES D 
O YOU APOLOGIZE?" 

2110 DATA "THERE ARE MANY TIMES WHEN NO 
APOLOGY IS NEEDED" 

2120 DATA "WHAT FEELINGS DO YOU HAVE WHE 
N YOU APOLOGIZE?" 

2130 DATA "HELLO" 

2140 DATA "HELLO...IT'S GOOD TO SEE you" 
2150 DATA "HELLO TO YOU...I'M GLAD YOU C 
OULD DROP BY TODAY" | 
2160 DATA "HOW ARE YOU...I'M LOOKING FOR 
WARD TO ANOTHER CHAT WITH YoU" 

2170 DATA "HI" 

2180 DATA "HI THERE...I'M GLAD TO SEE YO 
U HERE TODAY" 

2190 DATA "HI. I'M GLAD YOU'VE DROPPED B 
Y...WE'VE GOT LOTS OF TIME TO CHAT®" 
2200 DATA "HI TO YOU...RELAX NOW, AND LE 
T'S TALK ABOUT YOUR SITUATICN" 

2210 DATA "MAYBE" | 

2220 DATA "YOU SEEM A LITTLE HESITANT" 
2230 DATA "THAT'S PRETTY INDECISIVE" 
2240 DATA "IN WHAT OTHER SITUATIONS DO Y 
OU SHOW SUCH A TENTATIVE APPROACH?" 

2250 DATA "NO" . 
2260 DATA "WHY ARE YOU BEING SO NEGATIVE 
ABOUT IT?" 

2270 DATA "ARE YOU SAYING THAT JUST TO B 
E NEGATIVE" 

2280 DATA "THAT'S PRETTY FORCEFUL. WHAT 

DOES IT SUGGEST TO YOU?" 

2290 DATA "ALWAYS" 

2300 DATA "PLEASE GIVE ME A SPECIFIC EXA 

MPLE" | 

2310 DATA "ISN'T "ALWAYS! A LITTLE STRON 

Gin | 

2320 DATA "WHEN?" 

2330 DATA "TIT THINK" 

2340 DATA "DO YOU DOUBT#" 

2350 DATA "DO YOU REALLY THINK SO?" [> 
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te 


‘The Doctor is In 


KNOW THYSELF 


DATA 
DATA 
DATA 


2360 
2370 


2380 
CT 
2390 


DATA 


FRIEND?" 


2400 
R 

2410 
2420 


REACTIONS 


2430 
BOUT 
2440 


MPOSE 


2450 
2460 
Ty?" 
2470 
2480 
Tf 

2490 
2500 
TING 
2510 


DATA 


DATA 
DATA 


DATA 


DATA 


DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


"BUT YOU ARE NOT SURE#®" 
"FRIEND" 

"WHY DO YOU BRING UP THE SUBJE 
OF FRIENDS?" 

"WHAT IS YOUR BEST MEMORY OF A 


"PLEASE TELL ME MORE ABOUT YOU 
FRIENDSHIP..." 

"FRIENDS® 

"IN WHAT WAY DO YOUR FRIENDS! 
BOTHER YOU?" 

"WHAT MADE YOU START TO TALK A 
FRIENDS JUST NOW?" 

"IN WHAT WAY DO YOUR FRIENDS I 
ON YOU?" 

TIES" 

"WHAT LIES BEHIND YOUR CERTAIN 


"YOU'RE PRETTY POSITIVE" 


"YOU SEEM VERY CERTAIN ABOUT I 


"COMPUTER" 


"WHAT FEELINGS DO YOU GET, SIT 


THERE TALKING TO ME LIKE THIS?®* 


DATA 


"ARE YOU THINKING ABOUT ME IN 


PARTICULAR" 


2520 


RESTS 


2530 
2540 
2550 
Tan 

2560 
2570 
2580 


D YOU 


2590 
2600 
a ae 
2610 
2620 
" 

2630 
2640 
ABLE 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
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DATA 


DATA 
DATA 
DATA 


DATA 
DATA 
DATA 


DATA 
DATA 
TOLD 
DATA 
DATA 


DATA 
DATA 
TO#et" 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"WHAT ASPECT OF COMPUTERS INTE 
YOU THE MOST?" 

wis: iL1" 

"DO YOU THINK IT IS#" 

"IN WHAT CIRCUMSTANCES WOULD I 


"IT COULD WELL BE THAT#&" 
VTT i" 

"WHAT DEGREE OF CERTAINTY WOUL 
PLACE ON IT BEING*®" 

"ARE YOU CERTAIN THAT IT!S#* 
"WHAT EMOTIONS WOULD YOU FEEL 
YOU THAT IT PROBABLY ISN'!T#" 
"CAN YOU" 

"WHAT MAKES YOU THINK I CAN'T# 
"DON'T YOU THINK THAT JI 
"PERHAPS YOU WOULD LIKE 


CAN#®®" 
TO BE 


"CAN I" 

"PERHAPS YOU DON'T WANT 

"DO YOU WANT TO BE ABLE 
"T DOUBT IT" 

"YOU ARE*" 

"WHY DO YOU THINK I AM#"* 
"DOES IT PLEASE YOU TO BELIEVE 
T AM#" 


TO#" 
TO#" 


a ne A TN NA I 


2720 
n 


2730 
2740 
2750 


2760 
2770 
2780 
2790 
2800 
2810 
2820 
NGS" 
2830 
2840 
2850 
2860 


DATA 


DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 


4 BIT" 


2d (0 


2880 
S 

2890 
2900 
2910 


AVE*® 


2920 


2930 
2940 


2950 


2960 
Lbp#" 
2970 
2980 
2990 
3000 
3:0°1:0 
2020 
3030 
3040 


DATA 


DATA 


DATA 
DATA 
DATA 


DATA 
DATA 
DATA 


DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


T YOUR#" 


3050 
3060 


DATA 
DATA 


NOT TO 


3070 


DATA 


"PERHAPS YOU WOULD LIKE TO BE®* 


"YOU'RE" 

"WHY DO YOU THINK I AM#*" 

"DOES IT PLEASE YOU TO BELIEVE 
I AM#®" 

"WHY DO YOU SAY I'M#®" 

*I DON'T" 

"DON'T YOU REALLY*®" 

"WHY DON'T You#" 

"DO YOU WANT TO BE ABLE TO#*#" 

"T FEEL*" 

"TELL ME MORE ABOUT SUCH FEELI 


"DO YOU OFTEN FEEL*®" 

"DO YOU ENJOY FEELING#®" 
"REEL? 

"LET'S EXPLORE THAT STATEMENT 


"DO YOU OFTEN FEEL LIKE THAT?" 


"WHAT EMOTIONS DO SUCH FEELING 
STIR.UP IN YCU?" 

wr BAVE® 

"WHY TELL ME THAT YOU'VE" 
"IT'S OBVIOUS TO ME THAT YOU H 


"HOW CAN I HELP YOU WITH#*®" 
"T WOULD" 
"COULD YOU EXPLAIN WHY YOU 


WOULD#" 

"WHO ELSE HAVE YOU TOLD YOU 
WOULD*" 

"HOW SURE ARE YOU THAT YOU WOU 


"IS THERE*" 
"OF COURSE THERE IS#" 
"IT'S LIKELY THAT THERE JIS#" 


"WOULD YOU LIKE THERE TO BE#" 

nMy" 

"YOUR#" 

"I SEE, YOUR#®" 

"WHAT DOES IT MEAN TO YOU, THA 
"youn 

"THIS SESSION IS TO HELP YOU... 


DISCUSS ME!" 
"WHAT PROMPTED YOU TO SAY THAT 


ABOUT ME?" 


3080 
ALL 


DATA 
THIS 


"REMEMBER, I'M TAKING NOTES ON 
TO SOLVE YOUR SITUATION" 


3090 DATA #,#,#,# 


KNOW THYSELF 


The Celtic Tarot 


Once you've sorted yourself out with the 10 REM THE CELTIC TAROT 
help of the Doctor, you can use our next 20 REM (C) TIM HARTNELL 
program, The Celtic Tarot, to see what the 30 REM INTERFACE PUBLICATIONS, 1986 
future has in store. 4Q GOSUB 400:REM INITIALISE 

There is no need for you to learn what 50 GOSUB 270:REM ENTER QUESTION 
each Tarot card signifies in order to use 60 GOSUB 550 
this program. Of the many ways of using 70 PRINT R$;"?": PRINT 
and interpreting the Tarot, I’ve chosen the S80 PRINT TAB(16);"... LET ME SEE..." 
method called ‘The Celtic Cross’. Accord- 90 GOSUB 550:GOSUB 550 
ing to the book Predicting the Future, by 100 REM ####### 
the Diagram Group, the ‘Celtic Cross is 110 REM PREDICT 


probably the most useful and versatile of 120 FOR J=1 TO 10 
all tarot spreads”. 130 GOSUB 530:REM DELAY/SPACE OUT 


To use it, you just enter a question, 140 PRINT “WHEERKKKKEKKHRKTKEKKKHKRKKREE KE 


such as WOULD IT BE WISE TO CON- HHRKEREEEN 
SIDER BUYING A NEW WIND SURFER, 150 PRINT A$(J) 


and the program will deal some cards, and 160 GOSUB 550 
comment on them, in light of your ques- 170 X=INT(RND(1)#22):IF H(X)=1 THEN 170 


tion. 180 H(X)=1 
190 PRINT TAB( 13); "----- a i" 


200 PRINT B$(X) 
210 PRINT “SH ERREHERREREHERE KEKE RHEE KEE H 


HRREKRRKK AN 


220 GOSUB 550 
230 NEXT J 
240 GOSUB 530 
250 END 
260 REM #ERRERERER HERS 
270 REM ENTER QUESTION 
280 GOSUB 530 
290 PRINT "ENTER YOUR QUESTION OR CONCER 
N NOW" 
300 PRINT "AND I WILL USE THE CELTIC CRO 
SS SPREAD" 
310 PRINT "IN AN ATTEMPT TO GIVE SOME GU 
IDANCE..." 
320 GOSUB 530 
330 INPUT R$ 
340 GOSUB 530 
350 PRINT TAB(4);"PLEASE STAND BY...." 
360 GOSUB 550 
370 CLS 
380 RETURN 
390 REM ####e888EE 
400 REM INITIALISE 
ENTER YOUR QUESTION OR CONCERN NOW 410 CLS 
AND I WILL USE THE CELTIC CROSS SPREAD 420 RANDOMIZE VAL(RIGHT$(TIME$,2)) 
IN AN ATTEMPT TO GIVE SOME GUIDANCE... 430 DIM A$(10),B$(21),H(21) 


4HQ0 FOR J=1 TC 10 


450 READ A$(J) 
? WOULD IT BE WISE TO ATTEMPT TO MAKE A N60 NEXT J 


MILLION DOLLARS DURING 1987 470 FOR J=0 TO 21 
480 H(J)=0 > 
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_ The Celtic Tarot 


WOULD IT BE WISE TO ATTEMPT TO MAKE A 
MILLION DOLLARS DURING 1987? 


LEI ME SEE ¢ 


HHEKHHRHRKRRRKREHHRRRHHRE HEAR ERE ER EHH H 
THIS IS WHERE YOU STAND NOW... 


THE EMPRESS: A STABLE SITUATION, 
FORTUNE... 


PERE REESE SESE SESE ESE SES SEE SESS ESS SS 
THIS CARD IS FOR THE NEAR FUTURE... 


THE TOWER: UNFORTUNATE INDICATIONS, 


REGROWTH CAN BE EXPECTED.. 
PERSE EE EEE EES ESSE SSE SEES ESE SESS ESSE SS 


GOOD 


READ B$(J) 

NEXT J 

RETURN 

REM HHERHRHHEHEHRE EEE # 
REM DELAY/SPACE OUT 
PRINT: PRINT 
FOR Z=1 TO 
RETURN 

REM SKHKEKKKKKKKKKKRR EE 

REM INTRODUCTORY DATA 

DATA "THIS IS WHERE YOU STAND NOW... 


490 
500 
510 
520 
530 
540 


550 
560 


1000: NEXT Z 


DATA 
RE ees 
DATA 
DO's ga 
DATA 


"THIS CARD IS FOR THE NEAR FUTU 
"AND THIS ONE IS WHAT YOU MIGHT 


"THIS IS SOMETHING IN THE PAST 
THAT IS RELEVANT TO YOUR QUESTION..." 
630 DATA "THIS CARD RELATES TO A MORE RE 
CENT PAST EVENT..." 

640 DATA "NOW, THIS CARD INDICATES YOUR 
POSITION IN SIX MONTHS OR SO..." 

650 DATA "IN YOUR LIFE OR WORK, THIS MOS 
T CLOSELY INFLUENCES YOU..." 

660 DATA "THIS CARD REPRESENTS SOCIAL IN 
FLUENCES ON YOUR QUERY..." 

670 DATA "YOUR HOPES AND FEARS ARE REFLE 
CTED IN THIS CARD..." 

680 DATA "AND, FROM THESE, IN REPLY, THI 
S CARD POINTS TOWARDS AN ANSWER..." 
690 REM #4 HH HHRHEE 

700 REM CARD DATA 


710 DATA "THE FOOL: NEW BEGINNINGS AND C 
HALLENGES" 
720 DATA "THE MAGICIAN: OUTWARD PROGRESS 


; DECISIONS TO BE MADE..." 
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KNOW THYSELF 


eR ERREREREREREREREREREZERERERSZRER SERS SE S | 


THIS IS SOMETHING IN THE PAST THAT IS 
RELEVANT TO YOUR QUESTION... 


THE SUN: A GOAL WITHIN REACH, 


AFTER DARKNESS... 
PEPPER EERE REESE SE SEES ESE SESESESESE ES SE SE SE 


LIGHT 


730 DATA 
PROBLEM 
740 DATA 
N, GOOD 
750 DATA 
CHED, 

760 DATA 
eR: 

770 DATA 


N LIKELY, 


780 DATA 
OUR LIFE 
790 DATA 
ED, 

800 DATA 
ORITIES 
810 DATA 


3 
820 DATA 
WILL 
830 DATA 
VALUES, 
840 DATA 
ME FROM 
850 DATA 
DERATION 
860 DATA 
N TOO 
870 DATA 
IONS, 
880 DATA 


890 DATA 
HER THAN 
900 DATA 
LIGHT 

910 DATA 


"THE HIGH PRIESTESS: WISDOM, A 
WILL BE SIMPLIFIED..." 

"THE EMPRESS: A STABLE SITUATIO 
FORTUNE..." 

"THE EMPEROR: GOALS WILL BE REA 
BEWARE OF RUTHLESSNESS..." 

"THE HIGH PRIEST: LISTEN TO ADV 
UNDERSTANDING LIKELY..." 

"THE LOVERS: A POSITIVE DECISIO 
RELATIONSHIPS PROSPER...® 

"THE CHARIOT: A GOOD STAGE IN Y 
ATTAINED, TRAVEL LIKELY..." 
"JUSTICE: BALANCE WILL BE REACH 
DUE REWARD LIKELY..." | 
"THE HERMIT: REVALUATION OF PRI 
INDICATED, INNER GROWTH" 
"WHEEL OF FORTUNE: GROWTH, 
DECISIONS TO BE MADE..." 
"STRENGTH: YOUR INNER QUALITIES 
ENSURE YOU MEET THE TEST..." 
"HANGED MAN: CAST AWAY MATERIAL 
SACRIFICE REWARDED..." 

"DEATH: FRESH AWARENESS WILL CO 
TEMPORARY SETBACKS..." 
"ANGEL OF TIME (TEMPERANCE): 
DEMANDED; WISE CHOICE SEEN" 
"THE DEVIL: BE WARY OF GIVING I 
EASILY TO YOUR WHIMS" 

"THE TOWER: UNFORTUNATE INDICAT 
REGROWTH CAN BE EXPECTED.." 
"THE STAR: VERY POSITIVE, FRESH 
DEVELOPMENTS SEEN..." 

"THE MOON: TRUST YOUR HEART RAT 
YOUR HEAD..." 

"THE SUN: A GOAL WITHIN REACH, 
AFTER DARKNESS..." 

"JUDGEMENT: A PERIOD OF FRESH B 


LUCK 


MO 


EGINNINGS AND ASSESSING VALUES..." 


920 DATA 
FICULT 


"THE WORLD: COMPLETION OF A DIF 
TASK, ATTAINMENT OF A GOAL" 


KNOW THYSELF 


The Biorhythm Calculator 


What does 1987 hold in store for you? 10 REM THE BIORHYTHM CALCULATOR 
While you may not, perhaps, wish to rely 20 REM By Ian Hutt 
to much on the insights gained from our 30 REM (c) Interface Publications, 1986 
Celtic Tarot program, the ‘science’ of bior- HO REM ## 8 RRR EHD 
hythms may tell you much more. 50 GOSUB 160:REM INITIALISE 
In this program, written by lan Hutt, you 60 GOSUB 360:REM ENTER DETAILS 
just enter your date of birth, the current 70 GOSUB 490:REM CALCULATE 


80 GOSUB 800:REM PLOT 

90 GOSUB 700:REM ASK AGAIN 

100 REM S8eeREREEEEEERE HE 

110 IF Ag="Y" THEN RUN 

120 PRINT:PRINT "OK, BYE..." 
130 END 

140 REM ## 8888 REED 

150 REM INITIALISE 

160 CLS:PRINT: PRINT 

170 PRINT TAB(14);"BIORHYTHMS" 
180 PRINT: PRINT: PRINT TAB(11);"PLEASE ST 


month and year, and the program cleverly 
charts your physical, mental and emo- 
tional peaks and troughs for the coming 
month. Note that in lines 210 and 220, you 
may need to change the 80:and 24, into 
the number of characters across on the 
screen (the ‘line length’) and the number 
of lines the screen can hold (the ‘page 
length’). This ensures that the printed 
chart will fit properly on your screen. 


AND BY..." 
PLEASE ENTER YOUR DATE OF BIRTH: 190 REM * PUT THE VALUES OF YOUR OWN # 
MONTH (1 to 12)? 3 200 REM * SYSTEM IN THE NEXT TWO LINES #* 
DAY (1 to 31)? 17 
YEAR (AS 1988)? 63 210 LL=80:REM LINE LENGTH 
220 PL=24:REM PAGE LENGTH 
PLEASE ENTER THE CURRENT MONTH, YEAR: 230 PL=PL-2 
240 SX=LL/255 
MONTH (1 TO 12)? 4 250 SY=PL/170 
YEAR (AS 1988)? 87 260 DIM S$(LL, PL) 
270 FOR X=1 TO LL 
280 FOR Y=1 TO PL 
PLEASE STAND BY WHILE I -WORK IT OUT... 290 S$(X,Y)=" ":REM ONE SPACE > 
= PHYSICAL ® MENTAL . EMOTIONAL 
BS RHEE BHER * HHHHHHEtH$e+ = —«—_—_ wre ccne 
%# R44 +++ 
% 44% : 
# + # # . ++ 
% % ++ * ae + 
# + ee. ++ ee 
+ . as ° ° 
++ # + : =e 
+ # ++ 56 4 
+ % # + ; 4 
++ # + # Hy 
é + # # ++ e°¢ 
. ++ * # ++ # 8 +4 ee 
lial +++ eH +4 6 
t++t+et++ ae Gs: Ke SESE: CEST s+ 44 


ITIITIIIIIIIIIIIIIJIIIIIIIIIJIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII. 
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KNOW THYSELF 


The Biorhythm Calculator 


300 NEXT Y 570 FOR R=1 TO 3 

310 NEXT X 580 READ U,C$ 

320 RESTORE 590 L=2#3.14159#(T-(INT(T/U) *U))/U 

330 RETURN 600 K=2*3.14159#( 33-U)#.3 

340 REM ###RKHRH RHEE 610 PRINT L;K; 

350 REM ENTER DETAILS 620 FOR A=L TO K+L+(2*3.14159) STEP .1 
360 CLS: PRINT: PRINT 630 X=SX#((A-L) #(35-28+U) ) 

370 PRINT "PLEASE ENTER YOUR DATE OF BIR | 640 Y=SY#(90+SIN(A) #60) 

TH:": PRINT 650 IF X>0 AND Y>O AND X<=LL AND Y<=PL T 
380 PRINT TAB(5);"MONTH (1 to 12)";:INPU | HEN S$(X,Y)=C$ 

T B 660 NEXT A 

390 IF BK<1 OR B>12 THEN 380 670 NEXT R 

4OO PRINT TAB(5);"DAY (1 to 31)";:INPU | 680 RETURN 

T A 690 REM 88 RRRKREE 

410 IF A<1 OR A>31 THEN 400 700 REM ASK AGAIN 

420 PRINT TAB(5);"YEAR (AS 1988)";:INPU | 710 REM * PRESS A KEY FOR END #* 

T C 720 IF INKEY$<>"" THEN 720 

430 PRINT: PRINT "PLEASE ENTER THE CURREN | 730 IF INKEY$="" THEN 730 

T MONTH, YEAR: ":PRINT 7T4O PRINT: PRINT "DO YOU WANT ANOTHER GO 
4HQ PRINT TAB(5);"MONTH (1 TO 12)";:INPU | (Y OR N)?" | 

T D 750 A$=INKEY$ 

450 IF D<1 OR D>12 THEN 440 760 IF A$<>"N" AND A$<>"Y" THEN 750 
460 PRINT TAB(5);"YEAR (AS 1988)";:INPU | 770 RETURN 

T E 780 REM HERR EKERKKE FE 

470 RETURN 790 REM PLOT SUBROUTINE 

U8O REM 8 RE RKE RE 800 CLS 

490 REM CALCULATE 810 PRINT "= PHYSICAL * MENTAL . EMO 
500 PRINT: PRINT TIONAL" 

510 PRINT "PLEASE STAND BY WHILE I WORK 820 FOR Y=PL TO 1 STEP -1 

IT OUT..." 830 FOR X=1 TO LL 

520 T=INT(((E-C) *365.25)+((D-B) *#30.35)-A | 840 PRINT S$(X,Y); 

) 850 NEXT X 

530 FOR R=1 TO 255 860 NEXT Y 


S540 IF S$(SX#R,1)=" " THEN S$(SX#R,1)="- 870 RETURN 
n 880 REM ##RHSHHEHRE REED 


550 IF R=INT(R/B)*B THEN S$(SX#R,1)="1I" 890 REM DATA FOR CYCLES 
560 NEXT R 900 DATA 23,%+",28,%,", 33, "aN 


Notes and Ideas — 
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ARTIFICIAL STUPIDITY 


AN ENORMOUS AMOUNT of energy is now being spent to get computers to 
behave in ways which appear stupid. Artificial Stupidity (AS) research has looked 
into many of the simple human exhibitions of stupidity, such as games playing. 
This research has produced some outstanding and important results, such as those 
toy bears which grunt back at you when you grunt at them, and computers which 

refuse to recognise the command LUST for LIST, or RUIN for RUN. 


In this section of our Program Present, we'll look at two prime examples of AS. 


Medici — Personal Checkup 


Instead of going to a doctor, you can save 
Medicare lots of money, and use our 
Medici program to see how long you are 
going to live. Just answer the questions, 
and Medici will give you an estimate of 
your lifespan. Note that the results should 
be taken with a pinch of salt (but not too 
much, because salt is bad for your blood 
pressure). 


10 REM MEDICI - PERSONAL CHECKUP 


20 REM (C) TIM HARTNELL, 1986 

30 REM INTERFACE PUBLICATIONS 

40 CLS 

50 GOSUB 1270 

60 PRINT "A —- I AM BADLY OVERWEIGHT" 

70 PRINT "B = I AM FAIRLY OVERWEIGHT" 

80 PRINT "C —- I AM SLIGHTLY OVERWEIGHT" 
90 PRINT "D - MY WEIGHT IS ABOUT RIGHT" 
100 PRINT "E - I AM THINNER THAN I SHOUL 
D BE" 

110 GOSUB 1190 

120 WEIGHT=5*(ASC(A$)-68):IF A$="E" THEN 
WEIGHT=0 

130 PRINT WEIGHT | 
140 GOSUB 1270 

150 PRINT "I ENGAGE IN EXERCISE, THAT" 
160 PRINT "RAISES MY HEARTBEAT TO 120 OR 
MORE," 

170 PRINT "FOR AT LEAST THE FOLLOWING NU 

MBER" 

180 PRINT TAB(8);"OF HOURS A WEEK:" 

190 PRINT 

200 PRINT "A - LESS THAN A QUARTER" 

210 PRINT "B = MORE THAN A QUARTER, UP T 
) THREE-QUARTERS" D> 
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“Medici — Pe 


220 PRINT 
HOUR 
230 PRINT 


240 PRINT 
HOURS" 
250 GOSUB 


"Roo 


1190 


FROM THREE-QUARTERS OF AN 
UP TO ONE AND A HALF" 
FROM ONE AND A HALF TO 
TWO AND A HALF" 

MORE THAN TWO AND A HALF 


260 EXERC] SE=5*(ASC(A$)-63)-5:1F Ag="A" 


THEN EXERCISE=0 


270 PRINT EXERCISE 

280 GOSUB 1270 

290 PRINT "WHEN DRIVING: ": PRINT 

300 PRINT "A - I HARDLY EVER WEAR A SEAT 
BELT" 

310 PRINT "B - I WEAR A SEAT BELT AROUND 
A QUARTER OF THE TIME" 

320 PRINT "C —- I WEAR A SEAT BELT EVERY 
SECOND JOURNEY" 

330 PRINT "D - I WEAR A SEAT BELT FOR MO 
ST, BUT NOT ALL TRIPS" 

340 PRINT "E ~ I ALWAYS WEAR A SEAT BELT 
" 

350 GOSUB 1190 

360 SEATBELT=2*(ASC(A$)-65) 

370 PRINT SEATBELT 

380 GOSUB 1270 


390 PRINT "I AM CONSCIOUS OF NUTRITION A 
ND TRY TO EAT HEALTHILY:" 

400 PRINT 

410 PRINT "A - ALL THE TIME" 

420 PRINT "B ~ NEARLY ALL THE TIME" 

430 PRINT "C ~ A FAIR PROPORTION OF THE 
TIME" 

440 PRINT "D ~ FROM TIME TO TIME" 

450 PRINT "E - HARDLY AT ALL" 

460 GOSUB 1190 

470 DIET=-ASC(A$) +69 

480 PRINT DIET 

490 GOSUB 1270 

500 PRINT "SMOKING (A CIGAR COUNTS AS A 
CIGARETTE)" 

510 PRINT 

520 PRINT "A ~ NOT AT ALL" 

530 PRINT "B - LESS THAN 15 CIGARETTES A 
DAY" 

540 PRINT "C = 15 TO 25 CIGARETTES A DAY 
n 

550 PRINT "D = 26 TO 42 CIGARETTES A DAY 
n 

560 PRINT "E ~ MORE THAN 42 CIGARETTES A 
DAY" 

570 GOSUB 1190 

580 SMOKING=-7#(ASC(A$)-65) 


590 
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PRINT SMOKING 


sonal Checkup 


ARTIFICIAL STUPIDITY 


600 GOSUB 1270 

610 PRINT "ALCOHOL - HOW MANY DRINKS (ON 
AVERAGE) DO YOU HAVE EACH DAY?" 

620 PRINT 

630 PRINT "A - NONE" 

640 PRINT "B - LESS THAN 3" 

650 PRINT "C = 3 TO 6" 

660 PRINT "D - 7 TO 9" 

670 PRINT "E = MORE THAN 9" 

680 GOSUB 1190 

690 DRINK=-30 

700 IF Ag$="A" THEN DRINK=O 

710 IF A$="B" THEN DRINK=1 

720 IF A$="C" THEN DRINK=DRINK/5 

730 IF Ag$="D" THEN DRINK=DRINK/2 

740 PRINT DRINK 

750 GOSUB 1270 

760 PRINT "IN GENERAL, HOW STRESSFUL WOU 
LED YOU. SAY™: 

770 PRINT "YOUR LIFE HAS BEEN IN THE PAS 
T 6 MONTHS" 

780 PRINT 

790 PRINT "A +- EXTREMELY STRESSFUL" 

800 PRINT "B ~- FAIRLY STRESSFUL" 

810 PRINT "C ~ SLIGHTLY STRESSFUL" 

820 PRINT "D ~ NEUTRAL" 

830 PRINT "E - NOT STRESSFUL" 

840 GOSUB 1190 

850 STRESS=INT(2.5*(ASC(A$)-69) ) 

860 PRINT STRESS 

870 GOSUB 1320:CLS 

880 PRINT "PERSONAL ASSESSMENT FROM MEDI 

CLES" 

890 PRINT 

900 PRINT TAB(8);"WEIGHT: "WEIGHT 

910 PRINT TAB(6);"EXERCISE: "EXERCISE 

920 PRINT TAB(C4Y);3;"CAR SAFETY: "SEATBELT 

930 PRINT TAB(5);"NUTRITION: "DIET 

940 PRINT TAB(7); "SMOKING: "SMOKING 

950 PRINT TAB(7);"ALCOHOL: "DRINK 

960 PRINT TAB(8);"STRESS: "STRESS 

970 GOSUB 1320 

980 ANT=WEIGHT+EXERCISE+SEATBELT+HEARTBE 


AT+DIET+SMOKING+DRINK+STRESS 


990 GOSUB 1320:PRINT 

1000 PRINT " YOUR RAW RATING IS "ANT: 
PRINT 

1010 PRINT " ON A SCALE WHERE ZERO IS A 
VERAGE," 

1020 PRINT "THE LOWEST RATING IS BELOW - 
80, AND" 

1030 PRINT " THE HIGHEST IS OVER 30" 
1040 GOSUB 1320:PRINT | 


ARTIFICIAL STUPIDITY 


WHICH OF THE FOLLOWING IS CLOSEST 
TO THE TRUTH (SELECT ONE): 


I ENGAGE IN EXERCISE, THAT 

RAISES MY HEARTBEAT TO 120 OR MORE, 

FOR AT LEAST THE FOLLOWING NUMBER 
OF HOURS A WEEK: 


A - LESS THAN A QUARTER 

B - MORE THAN A QUARTER, UP TO 
THREE-QUARTERS 

C = FROM THREE-QUARTERS OF AN HOUR 
UP TO ONE AND A HALF 

D - FROM ONE AND A HALF TO 
TWO AND A HALF 

E = MORE THAN TWO AND A HALF HOURS 

OK B 
10 


WHICH OF THE FOLLOWING IS CLOSEST 
TO THE TRUTH (SELECT ONE): 


SMOKING (A CIGAR COUNTS AS A CIGARETTE) 


~- NOT AT ALL 

- LESS THAN 15 CIGARETTES A DAY 
15 TO 25 CIGARETTES A DAY 

- 26 TO 42 CIGARETTES A DAY 

- MORE THAN 42 CIGARETTES A DAY 


moO > 
t 


OK B 
= 


WHICH OF THE FOLLOWING IS CLOSEST 
TO THE TRUTH (SELECT ONE): 


ALCOHOL - HOW MANY DRINKS (ON AVERAGE) 
DO YOU HAVE EACH DAY? 
A - NONE 
B = LESS THAN 3 
C - 3 TO 6: 
D- 7 TO 9 
E - MORE THAN 9 
OK E 
- 30 


1050 IF ANT<6 AND ANT>-6 THEN A$="AVERAG 


E":L$="62 TO 73 72 TO 78" 

1060 IF ANT<-5 AND ANT>-21 THEN A$="BELO 

W AVERAGE": L$="60 TO 66 65 TO 71" 

1070 IF ANT<-20 THEN A$="POOR":L$="60 OR 
LESS 65 OR LESS" 

1080 IF ANT<-45 THEN A$="VERY POOR" 

1090 IF ANT<-60 THEN A$="VERY, VERY POOR 
" 


1100 IF ANT>5 AND ANT<15 THEN A$="GOOD": 
L$="74 TO 80 79 TO 85" 
1110 IF ANT>14 THEN A$="EXTREMELY GOOD": 


L$="81 PLUS 86 PLUS" 

1120 PRINT "THIS INDICATES YOUR HEALTH S 
TATUS IS "sA$ 

1130 PRINT 

117140 PRINT "LIFE EXPECTANCY:" 

1150 PRINT TAB(3);"MALE FEMALE" 
1160 PRINT TAB(3);L$ 

1170 END 

1180 REM #8 FSR E 


1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


OSEST 


1310 
1320 
1330 
1340 
1350 
1360 
1370 


1380 
1390 


1400 
1410 


1420 
1430 


REM ACCEPT INPUT 

IF INKEY$<>"" THEN 1200 

A$=INKEY$ 

IF A$<"A"™ OR A$>"E" THEN 1210 

PRINT: PRINT TAB(12);"OK "sA$ 

RETURN 

REM SHER EEE EE EF 

REM DELAY/SPACE OUT 

FOR J=1 TO 1000:NEXT J 

CLS 

PRINT: PRINT: PRINT: PRINT 

PRINT "WHICH OF THE FOLLOWING IS CL 
TO THE TRUTH (SELECT ONE):*" 

PRINT 

FOR J=1 TO 400O:NEXT J 

RETURN 

REM KXKKRKRKKKEKKKKFKKKKKKRS EEE ES 


REM MEDICI DATA SOURCES 

REM #KRKKKKFKKKKKKKKKKKKKKRLRESE Fe 

REM SOCIAL READJUSTMENT RATING 
SCALE; DR THOMAS HOLMES 

METROPOLITAN LIFE INSURANCE 
COMPANY 

'LIFE PLAN FOR YOUR HEALTH! 
DR DONALD VICKERY 

ADDISON-WESLEY, 1978 

NEW AGE TRAINING FOR FITNESS 
AND HEALTH - DYVEKE SPINO 


GROVE HOUSE INC., 1979 
(ee RRR EREEERESZEEE EEE ERE EZ SE S | 


REM 


REM 


REM 
REM 


REM 
REM 
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ARTIFICIAL STUPIDITY 


Intelligent Noughts and Crosses 


Our ‘intelligent’ Noughts and Crosses pro- 
gram develops a playing strategy as it 
runs. When you first run it, the program 
knows how to play the game, including 
enough knowledge to try and block a row 
of three being made by an opponent, or to 
complete its own row of three. But it 
knows nothing else about the way it 
should play. It doesn’t even know that it 
should move into the centre position if it 
is free. 

But play a few games with it, especially 
letting it win for a while, and it will quickly 
develop some strategy. As well, it shows 
you the relative values it has given to each 
position on the board, after each game, so 
you can actually see it learning. 

Here’s the board layout: 

e223 


When I ran this program against an oppo- 
nent playing totally at random, it took 
only 12 games before it had learned that 
position five, the central one, was the 
most valuable one on the board. You 
should see a similar quick development in 
its strategy when you play. If you want to 
set up a ‘random opponent’, just add 
those additional lines number 2000 to 
2070, headed RANDOM OPPONENT, and 
change line 190 into GOSUB 2000. Then 
settle back and watch Artificial Stupidity 
in action. 


2000 REM RANDOM OPPONENT 

2010 H=0 

2020 H=H+ 

2030 MVE=RND(9) 

2040 IF A(MVE)=32 THEN A(MVE)=ASC("X") 
EVURN 

2050 IF H<100 THEN 2020 

2060 R$="D" 

2070 RETURN 


:R 


10 
20 


FLA 
290 
"We F 
300 
DRA 
310 
3.20 
330 
340 
350 
360 
370 
380 
# # 
390 
hoo 
410 
420 
430 
WO 
450 
460 
470 
480 


REM 'Intelligent' Noughts & Crosses 
REM (c) Tim Hartnell, 
Interface Publictions, 1986 

GOSUB 1190:REM INITIALISE 
REM ®**® PREGAME SETTINGS #*## 
FOR J=1 TO Q 
A(J)=32 

NEXT J 
FOR J=1 TO 5 
D(c)=0 

NEXT J 

COUNT=0 

R$=i"n 

GOSUB 1080:REM PRINT BOARD 

REM ®*® MAIN CYCLE ®#* 

GOSUB 550: REM MACHINE MOVE 

GOSUB 1080:REM PRINT BOARD 

GOSUB 880:REM WIN CHECK 

IF R$<>"" THEN 250 

GOSUB 990:REM ACCEPT HUMAN MOVE 
GOSUB 1080:REM PRINT BOARD 

GOSUB 880:REM WIN CHECK 

IF R$="" THEN 150 

REM ***® END MAIN CYCLE *®*## 

REM HERR ERER HER 

REM END OF GAME 

GOSUB 1080:REM PRINT RCGARD 

PRINT? PRINT 

LF RSS WwW" THEN PRINT “TABCE)s "1. WIN. 
G=-1 

IF R$="L" THEN PRINT TAB(8);"YOU WIN 
LAG=1 

[TE R$e"D" THEN PRINT TAB 6) 3°2LT*S A 
W":GOTC 440 

REM UFDATE KNOWLEDGE BASE 

POR Be). 7C-5 

FCR J=2 TO Q 

LF OM(J)SDC BE). TREN GOSUE 33:30 

NEXT J 

NEXT E 

GOTC 4uc 

REM ** RE-ORDER ELEMENTS OF M ARRAY 


TEMP=M( J+FLAG) 

M(J+FLAG)=M(J) 

M(d)=TEMP 

J=9 

RETURN 

PRINT? PRINT 

PRINT "ThAS DTS MY. UPDATED PRIORITY" 
PRINTSPR SN 

FOR J=1 TO 9 

PRINT MO) 


ARTIFICIAL STUPIDITY 


490 
500 
510 
bau 
530 
540 
550 
560 
570 
580 
590 


NEXT J 

PRINT: PRINT 

PRINT "PRESS RETURN TO CONTINUE" 
INPUT A$ 

GOTO 40 

REM RERRRKRRKEKRKNEKS 

REM MACHINE MOVE 

P=ASC("O") 

X=0 

J=1 

IF A(W(J))=A(CW(J+1)) AND A(W(J4+2)) 23 


2 AND A(W(J))=P THEN X=W(J+2):GOTO 760 


600 


IF AC(W(d))=A(W(J+2)) AND AC W(J+1))=3 


2 AND A(W(J))=P THEN X=W(dJ+1):GOTO 760 


610 


IF AC(W(J+1))=ACW(J+2)) AND AC W(J))=3 


2 AND A(W(J+1))=P THEN X=W(J):GOTO 760 


620 IF J<21 THEN J=J+3:GOTO 590 

630 IF P=ASC("0O") THEN P=ASC("X"):GOTO 5 
&0 

640 REM **® IF NO WIN/BLOCK MOVE FOUND #* 
650 REM **® THEN THIS NEXT SECTION USED * 
® 

660 J=1 

670 IF A(M(J))=32 THEN X=M(d):GOTO 760 
680 IF J<10 THEN J=J+1:GCTO 670 

690 H=0 

700 H=H+1 

710 X=INT(RND(1)*9):IF A(X)=32 THEN 760 
720 IF H<100 THEN 700 

730 R$="D":REM IT IS A DRAW 

THO RETURN 

750 REM 48 HHH RH 

760 REM MAKE MOVE 

770 A(C(X)=ASC("O") 

780 COUNT=COUNT+1 

790 D(COUNT)=X 

800 FLAG=0 

810 FCR J=1 TO Q 

820 IF A({(J)=32 THEN FLAG=1 

830 NEXT J 

840 IF FLAG=0 AND R$="" THEN R$="D" 

850 REM IF ALL POSITIONS FULL, AND R$ NO 
T ASSIGNED, TT IS A DRAW 

S560 RETURN 

870 REM #RRHHHHER 

880 REM WIN CHECK 

890 J=1 

GOO IF A(W(J))=32 THEN J=J+3 

910 TF J>23 THEN RETURN 

920 IF A(WCJ))=ACW(J+1)) AND ACW(J))=ACW 
(J+2)) THEN 950 

930 IF J<22 THEN J=3+3:GOTC 900 


940 RETURN 


950 IF A(W(J))=ASC("0") THEN 


R$="W": REM 


MACHINE WINS 


960 IF A(W(J))=ASC("X") THEN R$="L"; 


REM 


MACHINE LOSES 
970 RETURN 
O80 REM ##HEHKEKRHS 


990 REM HUMAN MOVE 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


";CHR$(A(2))5" 
1120 PRINT "-~--~------ 
1130 PRINT "4 : 5 : 6 

";CHR$(A(5));" 


1140 
1150 


";CHR$(A(8)) 5" 


PRINT: PRINT 
PRINT “ENTER YOUR MOVE" 
INPUT MOVE 

IF MOVE<1 CR MOVE>9 THEN 
IF A(MOVE)<>32 THEN 1020 
A(MOVE)=ASC("X") 
RETURN 

REM #EXKRREERREEE 
REM PRINT BOARD 
CLS 

PRINT: PRINT: PRINT 
PRINT "1 3: 2 : 3 


1020 


"SCHR$(A(1));" 
ns ; CHR$(A(3)) 

uae sCHR$(A(4));" Pd 
m; ; CHR$(A(6)) , 
PRING “seoteceche  aseouccne n 
PRINT "7 : 8 9 "sCHR$(A(7))3" : 
n; ; CHR$(A(9)) 


1160 PRINT 

1170 RETURN 

1180 REM KRRRRKERRKRRK EE 

1190 REM INITIALISATION 

1200 CLS 

1210 DIM A(9):REM BOARD 

1220 DIM M(10):REM TO HOLD KNOWLEDGE BAS 
E 

1230 DIM W(24):REM WIN/BLOCK DATA 
1240 DIM D(5):REM TO HOLD MOVES IN CURRE 
NT GAME 

1250 REM WIN/BLOCK DATA 

1260 FOR J=1 TO 24 

1270 READ W(J) 

1280 NEXT J 

1290 DATA 1,2,3,4,5,6,7,8,9 

1300 DATA 1,4,7,2,5,8,3,6,9 

1310 DATA 1,5,9,3,5,7 

1320 REM INITIAL KNOWLEDGE BASE 
1330 FOR J=1 TO 10 

1340 READ M(J) 

1350 NEXT J 

1360 DATA 2,6,8,4,7,3,1,9,5,2 
1270 RETURN 


47 


The YC Perpetual Calendar 


Now you can print out, on the screen or on 
your printer, a calendar for every year from 
1987 to enternity. Just enter the last two 
digits of the year you want (so enter ‘87’ 
for 1987) and the program will do the rest. 


CAL EN D A R 


Enter the year you want (after 1900) as 
the final two digits: 19.. 
? 87 


January 1987 


March 1987 


Mon Tue Wed Thu Fri Sat Sun 


an ee ete ee ee ew aw a Oe ee ee ee ee ee ow ew a Be a @ ew & FF ee a oe 
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UTILITARIANISM 


10 REM THE Y.C. PERPETUAL CALENDAR 

20 REM (c) Tim Hartnell, 

: Interface Publications, 1986 

30 CLS 

40 RESTORE 620 

50 PRINT: PRINT: PRINT: PRINT: PRINT 

60 PRINT "C AL END A R®:PRINT:PRINT:P 

RINT 

70 PRINT "Enter the year you want (after 
1900) as the final two digits: 19..." 

80 INPUT Y$ 

90 IF LEN(Y$)=4 THEN Y=VAL(RIGHT$(Y$,2)) 
:GOTO 120 

100 IF LEN(Y$)=2 THEN Y=VAL(Y$):GOTO 120 


110 PRINT ">> Incorrect input format": PR 

INT:GOTO 70 

120 CLS: PRINT: PRINT: PRINT: PRINT 

130 PRINT "Do you want a copy to your pr 
inter as well (Y or N)?" 

140 INPUT K$ 

150 IF K$<>"N" AND K$<>"n" AND K$<>"Y" A 

ND K$<>"y" THEN 140 

160 CLS 

170 P=O0:IF K$="y" OR K$="Y" THEN P=1 

180 IF P=0 THEN 210 

190 PRINT "Position paper at next serati 

on, then press the <RETURND Key" 

200 INPUT G$:LPRINT:LPRINT:LPRINT 

210 D=!1 

220 PRINT: PRINT "Press <RETURN>D to start 
print out" 

230 INPUT G$ 

240 CLS 

250 FOR A=1901 TO 1900+Y-1 

260 IF A/H=INT(CA/4) AND A/1000<>INT(A/10 

00) THEN D=D+366:GOTO 280 

270 D=D+365 

280 NEXT A 

290 E=D-7* INT(D/7) 

300 FOR Mz=1 TO 12 

310 IF M=1 THEN 330 

320 INPUT G$ 

330 READ M$,L 

340 IF Y/4=INT(Y/4) AND M$="February" TH 
EN L=29 

350 PRINT TAB(20-LEN(M$)/2) ;M$;1900+Y 
360 IF P=1 THEN LPRINT TAB(20-LEN(M$)/2) 
3M$;1900+Y 

370 PRINT TAB(10);STRING$(27,"-") 

380 IF P=1 THEN LPRINT TAB(10);STRING$(2 
T=") 


"390 PRINT TAB(10);"Mon Tue Wed Thu Fri S 
at Sun" 

400 IF P=1 THEN LPRINT TAB(10);"Mon Tue 
| Wed Thu Fri Sat Sun® 

410 PRINT TAB(10);STRING$(27,"-") 

420 IF P=1 THEN LPRINT TAB(10);STRING$(2 
7,%=-") 

430 FOR Az=i TO L 

HHO IF A<10 THEN PRINT TAB(11+E#4);A; EL 
SE PRINT TAB(10+E#4);A; 

450 IF A<10 AND P=1 THEN LPRINT TAB(11+E 
HH) 5A; 

| 460 IF P=1 AND A>Q THEN LPRINT TAB(10+E* 
4H) 5A; 

470 E=E+1 

H80 IF E=7 THEN E=0 

490 NEXT A 

500 PRINT 

510 PRINT TAB(10);STRING$(27,"—") 

520 IF P=1 THEN LPRINT TAB(10);STRING$(2 
7,"=") 

530 PRINT: PRINT: PRINT 

S40 IF P=1 THEN LPRINT: LPRINT:LPRINT 

550 NEXT M 

560 PRINT: PRINT 

570 IF INKEY$<>"" THEN 570 

580 PRINT "Input 'A' to run again, or ju 
st the <RETURN> key to end? 

590 INPUT J$ 

600 IF J$="a" OR J$="A" THEN RUN 

61C END | 

620 DATA "January",31,"February",28, "Mar 
oh". 3] 

630 DATA "April",30,"May",31,"June"™, 30," 
July",31 | 

640 DATA "August",31,"September", 30,"Oct 
ober", 21 

650 DATA "November",30,"December", 31 


UTILITARIANISM 


~~ mw ew mm ewe eee eee eee lee ee ee ee eee ee le ee ew a a ow ow 
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Sit down, take a deep breath, and relax! 


Your Computer has just taken the hassle out of 
buying a computer — 


Available at your Newsagent now! 


Or simply send $4.50 plus $1.50 post and packing to The Federal Publishing Co, 
PO Box 227, Waterloo 2017 NSW. 


These attractive, réady to use, skyblue vinyl binders have 
been specially designed to hold and protect 12 of your 
valuable magazine collection in the easy clip-in fastener 
wires. 


is ed 
yen o pres 
aval be 


THE IDEAL GIFT FOR REGULAR READERS! 


Date of Order: / / Telephone( _)................. 


Please send me .............. @ $8.00 each = $ . ( ) Charge my (_ ) Bankcard ( ) Mastercard ( ) Amex 

PLUS postage & handling @ $2.90 each = $ ; . ths | 

™ TOTAL (‘~S~S C VISE WI © ncasccivsdcapcauawvrcaceae Expiry / / 

nip hasies Sree ee 
(Magazine Name Sn ee ee —— 

aes Card Not tt P it ttt i tt PP Te de 

( ) | enclose my cheque/money order (with this form in 

an envelode) fOr $ .......cc.cecccocececeeee Signature: ....... OTe ee ee rene aa 

(make cheques payable to: The Federal Publshing Co.) Name: SU ke ae Or al Bebe se Vennntner Nene see se ge 

. —- ! 
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t 

a 

! 
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* The longest established boating magazine in Australia. The top selling 

power and sail magazine. And simply the largest. However, you take your 

recreation afloat, Modern Boating has been there for twenty-one years with 

the race reports, the interviews, the boat tests, the updates on equipment 

and technology. From the top writers and photographers here and 
abroad. * 


